home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DNet / DGoInit.cpp < prev    next >
Text File  |  1996-07-05  |  81KB  |  3,074 lines
  1. // DGopherInit.cp
  2. // d.g.gilbert
  3.  
  4.  
  5. #include <ncbi.h>
  6. #include <dgg.h>
  7. #include <Dvibrant.h>
  8.  
  9. #include "DTCP.h"
  10. #include "DGopher.h"
  11. #include "DGoList.h"
  12. #include "DGoPlus.h"
  13. #include "DGoClasses.h"
  14. #include "DGoPrefs.h"
  15. #include <DApplication.h>
  16. #include <DDialogText.h>
  17. #include "DUtil.h"
  18. #include <DIconLib.h>
  19.  
  20. #include "DGoInit.h"
  21.  
  22.  
  23.  
  24.  
  25. enum GomapStatus {
  26.     kMapNever, kMapDefault, kMapAlways 
  27.     };
  28.     
  29. enum GoMapDataKind { 
  30.     kKindData=110, kServerTypeData, kServerSuffixData, kLocalData,
  31.     kdKindData, kdServerTypeData, kdServerSuffixData, kdLocalData,
  32.     kDontCheckDups = kdKindData
  33.     };
  34.  
  35. enum GopherHandlerKind { 
  36.     kNoHandler = 0, kInternalHandler, kExternalHandler
  37.     };
  38.     
  39. enum GoMapStatus {
  40.     kNochange, kChanged, kAdded, kDeleted
  41.     };
  42.     
  43. enum GopherInternalHandlers {
  44.     kErrHandler, kTextHandler, kFolderHandler, kFolderPlusHandler, kQueryHandler, 
  45.     kCSOHandler, kWhoisHandler, kFingerHandler, kNoteHandler, 
  46.     kPictHandler, kRTFHandler, kHTMLHandler, kMailHandler, kHTTPHandler, kImageHandler,
  47.     kGifHandler,
  48.   kNetTextHandler, kNetRTFHandler, kNetPictHandler, kNetGifHandler,
  49.     kMaxInternalHandler
  50.      };    
  51.     
  52.     // this list *must* match GopherInternalHandlers list
  53.     // in most cases, we'd just do kTextHandler = 'text', but that damn 16bitter won't let us
  54.     // also config list must use 4char ids, including spaces 
  55.  
  56.         // !! this is a DAMN weak point -- need to remember to add here when
  57.         // add new internal types 
  58.  
  59. Local char* gInternalHandlerIDs[kMaxInternalHandler+1] = {
  60.     "err ", "text", "goph", "gopl", "ques", 
  61.     "cso ", "who ", "fing", "note", 
  62.     "pict", "rtf ", "html", "mail", "http", "imag", "gif ",
  63.   "ntxt", "nrtf", "npic", "ngif",
  64.     NULL
  65.     };
  66.  
  67.  
  68.  
  69. Boolean            gNeedTypeChange = false;    // global used in DGopher & DGoList
  70.  
  71. DGopherMapList*        gGopherMap = NULL;
  72.  
  73. #if 0
  74. Local DList* gNetKinds = NULL;
  75. Local DList* gServerSuffixes = NULL;
  76. Local DList* gServerType = NULL;
  77. #endif
  78.  
  79.  
  80. Local char*    gYesNo[2]; // = { "No", "Yes" };
  81.  
  82.  
  83. Local    char* gDefaultTypes = 
  84. "goph=application/gopher-menu internet/gopher-menu\n" 
  85. "gopl=application gopher+-menu internet/gopher+-menu\n"
  86. "cso=internet/cso\n"
  87. "err=internet/error\n"
  88. "ques=internet/gopher-query\n"
  89. "who=internet/whois\n"
  90. "fing=internet/finger\n"
  91. "note=internet/gopher-note\n"
  92. "mail=internet/mail\n"
  93. "ftp =internet/ftp\n"
  94. "html=text/html internet/html\n"
  95. "text=text/plain text/-\n"
  96. "file=file/-\n"
  97. "imag=image/-\n"
  98. "gif=image/gif\n"
  99. "moov=video/-\n"
  100. "sond=audio/-\n"
  101. "teln=terminal/telnet\n"
  102. "tibm=terminal/tn3270\n"
  103. ;
  104.  
  105. Local    char* gDefaultServerTypes = 
  106. "text=    0    0    \n"
  107. "goph=    1    1    \n"
  108. "cso =    2    2 \n"
  109. "err =    3    3    \n"
  110. "hqx =    4    4 \n"
  111. "file=    5    9 \n"
  112. "file=    6    9 \n"
  113. "ques=    7    7 \n"
  114. "teln=    8    8 \n"
  115. "file=    9    9 \n"
  116. "sond=    s    s \n"
  117. "who    =    w    w \n"
  118. "imag=    I    I \n"
  119. "gif =    g    I \n"
  120. "note=    i    i \n"
  121. "tibm=    T    T \n"
  122. "html=    h    h \n"
  123. "moov=    ;    ; \n"
  124. ;
  125.  
  126. Local    char* gDefaultSuffixes = 
  127. "text=    .txt    .text    .doc\n"
  128. "post=    .ps\n"
  129. "rtf =    .rtf\n"
  130. "jpeg=    .jpg    .jpeg    .jfif\n"
  131. "gif =    .gif\n"
  132. "hqx =    .hqx\n"
  133. ;
  134.  
  135.  
  136. //[gpmap-local]
  137. //#type=    precedence    handling    MacType    MacCreator    HandlerApp
  138. // codewarrior can't deal w/ an #ifdef inside of a char data declaration 
  139.  
  140. #ifdef WIN_MAC
  141. Local    char* gDefaultLocal = 
  142. "gopl=    1    internal\n"
  143. "goph=    2    internal\n"
  144. "err=    1    internal\n"
  145. "ques=    1    internal\n"
  146. "note=    1 internal\n"
  147. "mail=    0    none\n"
  148. "ftp=    0    none\n"
  149. "cso=    0    none\n"
  150. "who=    1 internal\n"
  151. "fing=    1    internal\n"
  152. "text=    1    internal    TEXT/ttxt    TeachText\n"
  153. ;
  154.  
  155. //"html=    1    internal  TEXT/MWEB    MacWeb\n"
  156. //"pict=    1    internal    PICT/ttxt    TeachText\n"
  157. #else
  158.  
  159. Local    char* gDefaultLocal = 
  160. "gopl=    1    internal\n"
  161. "goph=    2    internal\n"
  162. "err=    1    internal\n"
  163. "ques=    1    internal\n"
  164. "note=    1 internal\n"
  165. "mail=    0    none\n"
  166. "ftp=    0    none\n"
  167. "cso=    0    none\n"
  168. "who=    1 internal\n"
  169. "fing=    1    internal\n"
  170. "text=    1    internal    .txt\n"
  171. ;
  172.  
  173. //"html=    1    internal  .html\n"
  174. //"pict=    1    internal    .pict\n"
  175. #endif
  176.  
  177.  
  178. #if 0
  179. class DMapName : public DObject
  180. {
  181. public:
  182.     long         fId;
  183.     char    * fName;
  184.     DMapName( long localid, char* name) {
  185.         fId= localid; 
  186.         fName= StrDup( name);
  187.         }
  188.     ~DMapName() { MemFree( fName); }
  189. };
  190.  
  191.  
  192. // static
  193. short dgiCompareMapNames( DMapName* a, DMapName* b)
  194. {
  195. #if 0
  196.     return ((long)a - (long)b);
  197. #else
  198.     if (a->fId == b->fId) 
  199.         return Nlm_StringCmp(a->fName, b->fName);
  200.     else 
  201.         return a->fId - b->fId;
  202. #endif
  203. } 
  204. #endif
  205.  
  206.  
  207.  
  208. class DGodocKindList : public DObject
  209. {
  210. public:
  211.     enum    { kNodata, kNamedata, kListdata };
  212.     char    fDatatype;
  213.     void    * fData;
  214.     
  215.     DGodocKindList() { fDatatype= kNodata; fData= NULL; }
  216.     DGodocKindList( char* name, Boolean lowercase = false) {
  217.         fDatatype= kNodata; fData= NULL;
  218.         AddName( name, lowercase);
  219.         }
  220.     ~DGodocKindList();
  221.     void AddName( char* name, Boolean lowercase = false);
  222.     const char* GetName();
  223.     void GetAllNames(char* buf, ulong maxbuf);
  224.     Boolean Match(char* name, Boolean ignorecase = false);
  225. };
  226.  
  227. DGodocKindList::~DGodocKindList() 
  228. { 
  229.     if (fData) {
  230.         if (fDatatype == kListdata) {
  231.             DList* dl= (DList*) fData;
  232.             long i, n= dl->GetSize();
  233.             for (i=0; i<n; i++) { DString* ds= (DString*) dl->At(i); delete ds; }
  234.             delete dl;
  235.             } 
  236.         else MemFree( fData);  
  237.         }
  238. }
  239.  
  240. const char* DGodocKindList::GetName()
  241. {
  242.     switch (fDatatype) {
  243.         case kNamedata: 
  244.             return (char*) fData;
  245.         case kListdata: {
  246.             DString* ds= (DString*) ((DList*) fData)->First();
  247.             if (ds) return ds->Get();
  248.             else return NULL;
  249.             }
  250.         default:
  251.             return NULL;
  252.         }
  253. }
  254.  
  255.  
  256. void DGodocKindList::GetAllNames(char* buf, ulong maxbuf)
  257. {
  258.     if (buf && maxbuf) 
  259.      switch (fDatatype) {
  260.         case kNamedata: 
  261.             StrNCpy( buf, (char*) fData, maxbuf);
  262.             break;
  263.             
  264.         case kListdata: {
  265.             long i, n= ((DList*)fData)->GetSize();
  266.             buf[0]= 0;
  267.             for (i= 0; i<n; i++) {
  268.                 DString* ds= (DString*) ((DList*) fData)->At(i);
  269.                 StrNCat( buf, ds->Get(), maxbuf);
  270.                 StrNCat( buf, " ", maxbuf);
  271.                 }
  272.             break;
  273.             }
  274.             
  275.         default:
  276.             buf[0]= 0;
  277.             break;
  278.         }
  279. }
  280.     
  281.     
  282. Boolean DGodocKindList::Match(char* name, Boolean ignorecase)
  283. {
  284.     switch (fDatatype) {
  285.         case kNamedata: 
  286.             if (ignorecase) 
  287.                 return (Nlm_StringICmp( (char*) fData, name) == 0);
  288.             else 
  289.                 return (Nlm_StringCmp( (char*) fData, name) == 0);
  290.                 
  291.         case kListdata: 
  292.             if (name == NULL) return false;
  293.             else {
  294.                 Boolean match;
  295.                 long i, n= ((DList*)fData)->GetSize();
  296.                 for (i= 0; i<n; i++) {
  297.                     DString* ds= (DString*) ((DList*) fData)->At(i);
  298.                     if (ignorecase) 
  299.                         match= (Nlm_StringICmp( (char*) ds->Get(), name) == 0);
  300.                     else 
  301.                         match= (Nlm_StringCmp( (char*) ds->Get(), name) == 0);
  302.                     if (match) return true;
  303.                     }
  304.                 return false;
  305.                 }
  306.             
  307.         default:
  308.             return (name == NULL);
  309.         }
  310. }
  311.  
  312.  
  313. void DGodocKindList::AddName( char* name, Boolean lowercase)
  314. {
  315.     DString* ds;
  316.     if (!name) return;
  317.     else if (!fData || fDatatype==kNodata) {
  318.         fDatatype= kNamedata;
  319.         fData= StrDup( name);
  320.         if (lowercase) StrLocase( (char*)fData);
  321.         return;
  322.         }
  323.     else if (fDatatype == kNamedata) {
  324.         ds= new DString((char*)fData);
  325.         MemFree(fData);
  326.         fDatatype= kListdata;
  327.         fData= new DList();
  328.         ((DList*) fData)->InsertLast(ds);
  329.         //goto StuffList;
  330.         }
  331.         
  332.     if (fDatatype == kListdata) {
  333. //StuffList:
  334.         DList* dl= (DList*) fData;
  335.         ds= new DString(name);
  336.          if (lowercase) StrLocase( (char*)ds->Get());
  337.         long i, n= dl->GetSize();
  338.         Boolean match= false;
  339.         for (i= 0; i<n && !match; i++) {
  340.             DString* d2= (DString*) dl->At(i);
  341.             match= (Nlm_StringCmp( (char*) d2->Get(), (char*)ds->Get()) == 0);
  342.             }
  343.         if (!match) dl->InsertLast(ds);
  344.         }
  345. }
  346.  
  347.  
  348.  
  349.         // local dialog...
  350.         
  351. class DGoMapEditView : public DCluster {        
  352. public:
  353.     DGopherMap    *    fMapper;
  354.     short        fForm;
  355.     Boolean fInstallKind;
  356.     
  357.     DGoMapEditView(long id, DView* itsSuperior, short itsForm, DGopherMap* itsMapper,
  358.             short width, short height, Boolean hidden = false, char* title = NULL);
  359.     virtual ~DGoMapEditView();
  360.     virtual void InstallControls();
  361.     virtual void Answers();
  362. };
  363.  
  364.  
  365. class DGoMapEditDlog : public DWindow 
  366. {
  367. public:
  368.     enum GoMapEditForms { kFormLocal=1, kFormServerSuffixes, kFormServerLocalMap, kFormNew };
  369.     DGopherMap            * fMapper, * fNewMapper;
  370.     DGoMapEditView    * fView;
  371.     char     * fOtherKinds;
  372.     short        fForm;
  373.      
  374.     DGoMapEditDlog(DGopherMap* itsMapper, short itsForm, 
  375.                 char* itsKind = "text/plain");
  376.     virtual ~DGoMapEditDlog();
  377.     virtual Boolean IsMyAction(DTaskMaster* action); 
  378.     virtual void OkayAction();
  379.     virtual void Open();
  380. };
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388. void NewGopherMap() 
  389. {
  390. #if 0
  391.     long i;
  392.     if (gNetKinds) {
  393.         for (i=0; i<gNetKinds->GetSize(); i++)
  394.             delete (DMapName*)gNetKinds->At(i);
  395.         delete gNetKinds;
  396.         }
  397.     gNetKinds= new DList(dgiCompareMapNames);
  398.  
  399.     if (gServerType) {
  400.         for (i=0; i<gServerType->GetSize(); i++)
  401.             delete (DMapName*)gServerType->At(i);
  402.         delete gServerType;
  403.         }
  404.     gServerType= new DList(dgiCompareMapNames);
  405.     
  406.     if (gServerSuffixes) {
  407.         for (i=0; i<gServerSuffixes->GetSize(); i++)
  408.             delete (DMapName*)gServerSuffixes->At(i);
  409.         delete gServerSuffixes;
  410.         }
  411.     gServerSuffixes= new DList(dgiCompareMapNames);
  412. #endif
  413.  
  414.     if (gGopherMap) {
  415.         gGopherMap->FreeAllObjects();
  416.         delete gGopherMap;
  417.         }
  418.     gGopherMap= new DGopherMapList();
  419. }
  420.  
  421.  
  422. void ReadGoMapPrefSection(char* section, short dataKind, char* defaultData) 
  423. {
  424.     char *sectnames, *sectend, *params, *name, *ep;
  425.     ulong sectlen;
  426.  
  427.     sectnames= gApplication->GetPrefSection(section, sectlen, NULL);  
  428.     if (sectnames) {
  429.         sectend= sectnames + sectlen;
  430.         name= sectnames;
  431.         while (name && name < sectend) {
  432.             ep= StrChr(name,'\0');
  433.             params= gApplication->GetPref( name, section, NULL);
  434.             gGopherMap->ReadParams( name, params, dataKind);  
  435.             MemFree(params);
  436.             name= ep+1;  
  437.             }
  438.         MemFree(sectnames);
  439.         }
  440.         
  441.     else if (defaultData) {
  442.         sectend= defaultData + StrLen(defaultData);
  443.         name= defaultData;
  444.         while (name && name < sectend) {
  445.             ep= StrChr(name,'\n');  
  446.             if (!ep) ep= StrChr(name,'\0');
  447.             params= StrChr(name,'=');
  448.             if (params) params++;
  449.             gGopherMap->ReadParams( name, params, dataKind);  
  450.             name= ep+1;  
  451.             }
  452.         }
  453. }
  454.  
  455.  
  456.  
  457. void StoreGopherIcons()
  458. {
  459. #if 0
  460. enum GopherIconID {
  461.     kTextIcon                = 2200,    // resource fork must have these icon/cicon 
  462.     kFolderIcon            = 2201,
  463.     kPhonebookIcon    = 2202, //CSO phonebook
  464.     kDefaultIcon        = 2203,
  465.     kBinhexIcon            = 2204,
  466.     kUuencodeIcon     = 2206,
  467.     kIndexIcon             = 2207,
  468.     kTelnetIcon            = 2208,
  469.     kSoundIcon            = 2212,
  470.     kWhoisPhonebookIcon    = 2213,
  471.     kBinaryIcon            = 2214,
  472.     kImageIcon            = 2215,
  473.     kMovieIcon            = 2216,
  474.     kHTMLIcon                = 2217,
  475.     kNoteIcon                = 2218,
  476.     kFirstIcon            = kTextIcon,
  477.     kLastIcon                = kNoteIcon
  478. };
  479. #endif
  480.  
  481. unsigned short cTextIcon[] = {
  482.  kTextIcon, 0, 32, 32, 64,
  483.  0x1fff, 0xfc00, 0x1000,  0x600, 0x1000,  0x500, 0x1000,  0x480,
  484.  0x1000,  0x440, 0x1000,  0x420, 0x1000,  0x7f0, 0x101f, 0xf810,
  485.  0x1000,   0x10, 0x107f, 0xf810, 0x1000,   0x10, 0x107f, 0xf810,
  486.  0x1000,   0x10, 0x107f, 0xf810, 0x1000,   0x10, 0x107f, 0xf810,
  487.  0x1000,   0x10, 0x101f, 0xf810, 0x1000,   0x10, 0x107f, 0xf810,
  488.  0x1000,   0x10, 0x107f, 0xf810, 0x1000,   0x10, 0x107f, 0xf810,
  489.  0x1000,   0x10, 0x107f, 0xf810, 0x1000,   0x10, 0x1000,   0x10,
  490.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1fff, 0xfff0 
  491.   ,0,0,0,0,0,0 
  492.     };
  493.     new DIcon( (IconStore*) cTextIcon); // data is stored in gIconList
  494.  
  495. unsigned short cFolderIcon[] = {
  496.  kFolderIcon, 0, 32, 32, 64,
  497.       0,      0,      0,      0,      0,      0,      0,      0,
  498.       0,      0,      0,      0,      0,      0,  0x7f0,      0,
  499.   0x808,      0, 0x1004,      0, 0x2002,      0, 0x4001, 0xfffc,
  500.  0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2,
  501.  0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2,
  502.  0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2,
  503.  0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2,
  504.  0x8000,    0x2, 0x8000,    0x2, 0x8000,    0x2, 0xffff, 0xfffe 
  505.   ,0,0,0,0,0,0 
  506.     };
  507.     new DIcon( (IconStore*) cFolderIcon); 
  508.  
  509. unsigned short cPhonebookIcon[] = {
  510.  kPhonebookIcon, 0, 32, 32, 64,
  511.       0,      0,      0,      0,      0,      0,      0,      0,
  512.       0,      0,   0x3f, 0xfe00,  0x1ff, 0xffc0,  0x3ff, 0xffe0,
  513.   0x7ec, 0x1ff0,  0x7ef, 0xfbf0,  0x3df, 0xfde0,   0x18,  0xc00,
  514.    0x3a, 0xae00,   0x38,  0xe00,   0x7a, 0xaf00,   0x78,  0xf00,
  515.    0x7f, 0xff00,   0x7f, 0xff00,   0x7f, 0xff00,   0x60,  0x300,
  516.  0x7fff, 0xffff, 0x3fff, 0xfffe, 0x2000,    0x2, 0x3c00,    0x2,
  517.  0x2870,    0x2, 0x2021, 0xc002, 0x2000, 0x8702, 0x2000,  0x21e,
  518.  0x2000,    0xa, 0x2000,    0x2, 0x3fff, 0xfffe, 0x7fff, 0xffff 
  519.   ,0,0,0,0,0,0 
  520.     };
  521.     new DIcon( (IconStore*) cPhonebookIcon); // data is stored in gIconList
  522.  
  523. unsigned short cSoundIcon[] = {
  524.  kSoundIcon, 0, 29, 29, 54,
  525.       0,      0,      0,  0x300,      0,  0xf00,      0, 0x3f00,
  526.       0, 0xfd00,    0x3, 0xf100, 0xffff, 0xffff, 0xe003, 0x8100,
  527.  0xe002,  0x100, 0xe002,  0x100, 0xe002,  0x100, 0xffff, 0xffff,
  528.  0xe002,  0x100, 0xec02,  0x100, 0xec02,  0x700, 0xe002,  0xf00,
  529.  0xffff, 0xffff, 0xe01e, 0x1f00, 0xec3e, 0x1e00, 0xec3e, 0x1c00,
  530.  0xe03c,      0, 0xffff, 0xffff, 0xe000,      0, 0xe000,      0,
  531.  0xe000,      0, 0xe000,      0, 0xffff, 0xffff 
  532.   ,0,0,0,0,0,0 
  533.     };
  534.     new DIcon( (IconStore*) cSoundIcon);
  535.  
  536. unsigned short cBinhexIcon[] = {
  537.  kBinhexIcon, 0, 31, 31, 62,
  538.  0x1fff, 0xfc00, 0x1000,  0x600, 0x1000,  0x500, 0x1000,  0x480,
  539.  0x1000,  0x440, 0x1000,  0x420, 0x1652, 0xafb0, 0x155a, 0xa8b0,
  540.  0x155a, 0xa8f0, 0x1756, 0xee50, 0x1556, 0xa8f0, 0x1556, 0xa8b0,
  541.  0x1652, 0xaeb0, 0x1000,   0x10, 0x107e,   0x10, 0x1043,   0x10,
  542.  0x1042, 0x8010, 0x1043, 0xc010, 0x1040, 0x5010, 0x1040, 0x6810,
  543.  0x1040, 0x4410, 0x1040, 0x8210, 0x1041,  0xf10, 0x1042, 0x1190,
  544.  0x1041, 0x3d10, 0x1040, 0x8b90, 0x107f, 0xc790, 0x1000, 0x2990,
  545.  0x1000, 0x1010, 0x1000,   0x10, 0x1fff, 0xfff0 
  546.   ,0,0,0,0,0,0 
  547.     };
  548.     new DIcon( (IconStore*) cBinhexIcon);
  549.  
  550. unsigned short cDefaultIcon[] = {
  551.  kDefaultIcon, 0, 32, 32, 64,
  552.  0x1fff, 0xfc00, 0x1000,  0x600, 0x1000,  0x500, 0x1000,  0x480,
  553.  0x1000,  0x440, 0x1000,  0x420, 0x1000,  0x7f0, 0x1000,   0x10,
  554.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10,
  555.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10,
  556.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10,
  557.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10,
  558.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10,
  559.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1fff, 0xfff0 
  560.   ,0,0,0,0,0,0 
  561.     };
  562.     new DIcon( (IconStore*) cDefaultIcon);
  563.  
  564. unsigned short cUuencodeIcon[] = {
  565.  kUuencodeIcon, 0, 31, 31, 62,
  566.  0x1fff, 0xfc00, 0x1000,  0x600, 0x1000,  0x500, 0x1000,  0x480,
  567.  0x1000,  0x440, 0x1000,  0x420, 0x1556, 0x97f0, 0x1554, 0xd490,
  568.  0x1554, 0xd490, 0x1556, 0xf490, 0x1554, 0xb490, 0x1554, 0xb490,
  569.  0x1226, 0x9670, 0x1000,   0x10, 0x107e,   0x10, 0x1043,   0x10,
  570.  0x1042, 0x8010, 0x1043, 0xc010, 0x1040, 0x5010, 0x1040, 0x6810,
  571.  0x1040, 0x4410, 0x1040, 0x8210, 0x1041,  0xf10, 0x1042, 0x1190,
  572.  0x1041, 0x3d10, 0x1040, 0x8b90, 0x107f, 0xc790, 0x1000, 0x2990,
  573.  0x1000, 0x1010, 0x1000,   0x10, 0x1fff, 0xfff0 
  574.   ,0,0,0,0,0,0 
  575.     };
  576.     new DIcon( (IconStore*) cUuencodeIcon);
  577.  
  578. unsigned short cIndexIcon[] = {
  579.  kIndexIcon, 0, 30, 30, 60,
  580.       0,      0,      0,      0, 0x3fff, 0xfffc, 0x7fff, 0xfffc,
  581.  0x7fff, 0xfffc, 0x6000,   0x1c, 0x6000,   0x1c, 0x601f, 0xc01c,
  582.  0x603f, 0xf01c, 0x607f, 0xf81c, 0x60f8, 0xfc1c, 0x60f0, 0x7c1c,
  583.  0x60f0, 0x7c1c, 0x60f0, 0x7c1c, 0x6000, 0xf81c, 0x6001, 0xf01c,
  584.  0x6003, 0xe01c, 0x6007, 0xc01c, 0x6007, 0x801c, 0x6007, 0x801c,
  585.  0x6007, 0x801c, 0x6000,   0x1c, 0x6000,   0x1c, 0x6000,   0x1c,
  586.  0x6007, 0x801c, 0x6007, 0x801c, 0x6007, 0x801c, 0x6000,   0x1c,
  587.  0x6000,   0x18, 0x3fff, 0xfff0 
  588.   ,0,0,0,0,0,0 
  589.     };
  590.     new DIcon( (IconStore*) cIndexIcon);
  591.  
  592. unsigned short cTelnetIcon[] = {
  593.  kTelnetIcon, 0, 32, 32, 64,
  594.  0x3fc0, 0x7f80, 0x2040, 0x4080, 0x2f40, 0x5e80, 0x2f40, 0x5e80,
  595.  0x2040, 0x4080, 0xfff1, 0xffe0, 0xb01f, 0x603e, 0x80f1,  0x3e2,
  596.  0xfff1, 0xffe2,      0,    0x2,   0x7f, 0xf002,   0x55, 0x5002,
  597.    0x55, 0x5002,   0x55, 0x5002,   0x55, 0x5002,   0x55, 0x5002,
  598.    0x55, 0x5002,   0x55, 0x5007,  0x3ff, 0xffff,  0x200,  0x207,
  599.   0x200,  0x202,  0x3ff, 0xfe02,      0,    0x2, 0xfe1f, 0xc3fa,
  600.  0x8210, 0x420a, 0xba17, 0x42ea, 0xba17, 0x42ee, 0xbbf7, 0x7ee8,
  601.  0x8210, 0x4208, 0xfe1f, 0xc3f8, 0x8610, 0x4208, 0xfe1f, 0xc3f8 
  602.   ,0,0,0,0,0,0 
  603.     };
  604.     new DIcon( (IconStore*) cTelnetIcon);
  605.  
  606. unsigned short cWhoisPhonebookIcon[] = {
  607.  kWhoisPhonebookIcon, 0, 32, 32, 64,
  608.       0,      0,      0,      0,      0,      0,      0,      0,
  609.       0,      0,   0x3f, 0xfe00,  0x1ff, 0xffc0,  0x3ff, 0xffe0,
  610.   0x7ec, 0x1ff0,  0x7ef, 0xfbf0,  0x3df, 0xfde0,   0x18,  0xc00,
  611.    0x3a, 0xae00,   0x38,  0xe00,   0x7a, 0xaf00,   0x78,  0xf00,
  612.    0x7f, 0xff00,   0x7f, 0xff00,   0x7f, 0xff00,   0x60,  0x300,
  613.  0x7fff, 0xffff, 0x3fff, 0xfffe, 0x2000,    0x2, 0x2000,    0x2,
  614.  0x2000,    0x2, 0x2000,    0x2, 0x2000,    0x2, 0x2000,    0x2,
  615.  0x2000,    0x2, 0x2000,    0x2, 0x3fff, 0xfffe, 0x7fff, 0xffff 
  616.   ,0,0,0,0,0,0 
  617.     };
  618.     new DIcon( (IconStore*) cWhoisPhonebookIcon);
  619.  
  620. unsigned short cBinaryIcon[] = {
  621.  kBinaryIcon, 0, 32, 32, 64,
  622.  0x1fff, 0xfc00, 0x1000,  0x600, 0x1000,  0x500, 0x1000,  0x480,
  623.  0x1000,  0x440, 0x1000,  0x420, 0x1000,  0x7f0, 0x1000,   0x10,
  624.  0x1049, 0x2410, 0x10aa, 0xaa10, 0x10aa, 0xaa10, 0x1049, 0x2410,
  625.  0x1000,   0x10, 0x1000,   0x10, 0x1092, 0x9210, 0x10aa, 0xaa10,
  626.  0x10aa, 0xaa10, 0x1092, 0x9210, 0x1000,   0x10, 0x1000,   0x10,
  627.  0x1049, 0x2410, 0x10aa, 0xaa10, 0x10aa, 0xae10, 0x1049, 0x2a10,
  628.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10,
  629.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0x1fff, 0xfff0 
  630.   ,0,0,0,0,0,0 
  631.     };
  632.     new DIcon( (IconStore*) cBinaryIcon);
  633.  
  634. unsigned short cImageIcon[] = {
  635.  kImageIcon, 0, 32, 32, 64,
  636.  0x1fff, 0xfc00, 0x1000,  0x600, 0x13a0,  0x500, 0x13a0,  0x480,
  637.  0x13a8, 0x2440, 0x13a0,  0x420, 0x13a0, 0xe7f0, 0x13a1, 0x1010,
  638.  0x13a2,  0x810, 0x13a2,  0x810, 0x13aa,  0x890, 0x13a1, 0x1010,
  639.  0x13e0, 0xe010, 0x1220,   0x10, 0x1220,   0x10, 0x1220,   0x10,
  640.  0x122b, 0xfe90, 0x1222,  0x210, 0x11c2,  0x210, 0x1322, 0x1fd0,
  641.  0x1322, 0x1050, 0x1212, 0x1050, 0x121b, 0xf250, 0x1210, 0x1050,
  642.  0x1230, 0x1050, 0x1120, 0x1fd0, 0x11a0,   0x10, 0x10e0,   0x10,
  643.  0x1230, 0x2090, 0x1000,   0x10, 0x1000,   0x10, 0x1fff, 0xfff0 
  644.   ,0,0,0,0,0,0 
  645.     };
  646.     new DIcon( (IconStore*) cImageIcon);
  647.  
  648. unsigned short cMovieIcon[] = {
  649.  kMovieIcon, 0, 32, 32, 64,
  650.  0x1fff, 0xfc00, 0x1200,  0x600, 0x1200,  0x500, 0x1e7f, 0xfc80,
  651.  0x1e7f, 0xfc40, 0x127f, 0xfc20, 0x127f, 0xfff0, 0x1e7f, 0xfcf0,
  652.  0x1e00,   0xf0, 0x1200,   0x90, 0x13ff, 0xff90, 0x1e00,   0xf0,
  653.  0x1e00,   0xf0, 0x127f, 0xfc90, 0x127f, 0xfc90, 0x1e7f, 0xfcf0,
  654.  0x1e7f, 0xfcf0, 0x127f, 0xfc90, 0x127f, 0xfc90, 0x1e00,   0xf0,
  655.  0x1e00,   0xf0, 0x13ff, 0xff90, 0x1200,   0x90, 0x1e00,   0xf0,
  656.  0x1e55, 0x54f0, 0x122a, 0xa890, 0x1255, 0x5490, 0x1e2a, 0xa8f0,
  657.  0x1e55, 0x54f0, 0x1200,   0x90, 0x1200,   0x90, 0x1fff, 0xfff0 
  658.   ,0,0,0,0,0,0 
  659.     };
  660.     new DIcon( (IconStore*) cMovieIcon);
  661.  
  662. unsigned short cHTMLIcon[] = {
  663.  kHTMLIcon, 0, 32, 32, 64,
  664.  0x1fff, 0xfe00, 0x1000,  0x300, 0x1000,  0x280, 0x101f, 0xfa40,
  665.  0x1000,  0x220, 0x107f, 0xfbf0, 0x1000,   0x10, 0x107f, 0xf810,
  666.  0x1000,   0x10, 0x107f, 0xf810, 0x1000,   0x10, 0x101f, 0xf810,
  667.  0x1000,   0x10, 0x107f, 0xf810, 0x1000,   0x10, 0x107f, 0xf810,
  668.  0x1000,   0x10, 0x107f, 0xf810, 0x1000,   0x10, 0x107f, 0xf810,
  669.  0x1000,   0x10, 0x1000,   0x10, 0x1000,   0x10, 0xffff, 0xfffe,
  670.     0x8, 0x8000,  0x808, 0x8040, 0x1808, 0x8060, 0x2ff0, 0x7fd0,
  671.  0x4000,    0x8, 0x2fff, 0xffd0, 0x1800,   0x60,  0x800,   0x40 
  672.   ,0,0,0,0,0,0 
  673.     };
  674.     new DIcon( (IconStore*) cHTMLIcon);
  675.  
  676. unsigned short cNoteIcon[] = {
  677.  kNoteIcon, 0, 32, 32, 64,
  678.  0xffff, 0xffff, 0x807f, 0xffff, 0x807f, 0xffff, 0x807f, 0xffff,
  679.  0x807f, 0xffff, 0x807f, 0xc0ff, 0x887f,   0x3f, 0x887e,   0x1f,
  680.  0x887c,    0xf, 0x8078,    0x7, 0x8078,    0x7, 0x8070,    0x3,
  681.  0x8071, 0xddc3, 0x8070,    0x3, 0x8070,    0x3, 0x8071, 0xdd43,
  682.  0x8070,    0x3, 0x8070,    0x3, 0x8071, 0xd703, 0x8070,    0x3,
  683.  0x87f0,    0x3, 0x81f1, 0xeec3, 0x81f0,    0x7, 0x81f0,    0x7,
  684.  0x81f0,    0xf, 0x81e0,   0x1f, 0x8f80,   0x7f, 0x81ff, 0xffff,
  685.  0x81ff, 0xffff, 0x81ff, 0xffff, 0x81ff, 0xffff, 0xffff, 0xffff 
  686.   ,0,0,0,0,0,0 
  687.     };
  688.     new DIcon( (IconStore*) cNoteIcon);
  689.  
  690.  
  691.  
  692.     // small icons
  693. unsigned short rTextIcon[] = {
  694.  10000+kTextIcon, 0, 16, 16, 16,
  695.  0x7ff0, 0x4038, 0x402c, 0x47fc, 0x4004, 0x4fe4, 0x4004, 0x47e4,
  696.  0x4004, 0x4fe4, 0x4004, 0x4fe4, 0x4004, 0x4004, 0x4004, 0x7ffc 
  697.   ,0,0,0,0,0,0 
  698.     };
  699.     new DIcon( (IconStore*) rTextIcon);
  700.  
  701. unsigned short rFolderIcon[] = {
  702.  10000+kFolderIcon, 0, 16, 16, 16,
  703.       0,      0,      0, 0x3c00, 0x6200, 0xc1fe, 0x8001, 0x8001,
  704.  0x8001, 0x8001, 0x8001, 0x8001, 0x8001, 0x8001, 0x8001, 0xffff 
  705.   ,0,0,0,0,0,0 
  706.     };
  707.     new DIcon( (IconStore*) rFolderIcon);
  708.  
  709. unsigned short rPhonebookIcon[] = {
  710.  10000+kPhonebookIcon, 0, 16, 16, 16,
  711.       0,      0,  0x7f0, 0x1ffc, 0x3ffc, 0x1ffc,  0x7f0,  0xff0,
  712.   0xff0,  0xff0, 0xffff, 0x7001, 0x4601, 0x4061, 0x4007, 0xffff 
  713.   ,0,0,0,0,0,0 
  714.     };
  715.     new DIcon( (IconStore*) rPhonebookIcon);
  716.  
  717. unsigned short rSoundIcon[] = {
  718.  10000+kSoundIcon, 0, 14, 14, 14,
  719.    0x10,   0x70,  0x1f0, 0xffff, 0xc110, 0xffff, 0xe110, 0xe130,
  720.  0xffff, 0xe770, 0xffff, 0xc000, 0xc000, 0xffff 
  721.   ,0,0,0,0,0,0 
  722.     };
  723.     new DIcon( (IconStore*) rSoundIcon);
  724.  
  725. unsigned short rBinhexIcon[] = {
  726.  10000+kBinhexIcon, 0, 16, 16, 16,
  727.  0x7ff0, 0x4008, 0x4004, 0x7ffc, 0x7ffc, 0x7fec, 0x7dfc, 0x4f04,
  728.  0x4984, 0x48e4, 0x48b4, 0x497c, 0x49fc, 0x4ffc, 0x4044, 0x7ffc 
  729.   ,0,0,0,0,0,0 
  730.     };
  731.     new DIcon( (IconStore*) rBinhexIcon);
  732.  
  733. unsigned short rDefaultIcon[] = {
  734.  10000+kDefaultIcon, 0, 16, 16, 16,
  735.  0x7ff0, 0x4038, 0x402c, 0x403c, 0x4004, 0x4004, 0x4004, 0x4004,
  736.  0x4004, 0x4004, 0x4004, 0x4004, 0x4004, 0x4004, 0x4004, 0x7ffc 
  737.   ,0,0,0,0,0,0 
  738.     };
  739.     new DIcon( (IconStore*) rDefaultIcon);
  740.  
  741. unsigned short rUuencodeIcon[] = {
  742.  10000+kUuencodeIcon, 0, 16, 16, 16,
  743.  0x7ff0, 0x4038, 0x402c, 0x7ffc, 0x7fec, 0x7eec, 0x57fc, 0x4f04,
  744.  0x4984, 0x48e4, 0x48b4, 0x497c, 0x49fc, 0x4ffc, 0x4044, 0x7ffc 
  745.   ,0,0,0,0,0,0 
  746.     };
  747.     new DIcon( (IconStore*) rUuencodeIcon);
  748.  
  749. unsigned short rIndexIcon[] = {
  750.  10000+kIndexIcon, 0, 15, 15, 15,
  751.       0, 0xfffe, 0xfffe, 0xc006, 0xc7c6, 0xcc66, 0xcc66, 0xc0c6,
  752.  0xc186, 0xc106, 0xc006, 0xc006, 0xc106, 0xc006, 0xfffe 
  753.   ,0,0,0,0,0,0 
  754.     };
  755.     new DIcon( (IconStore*) rIndexIcon);
  756.  
  757. unsigned short rTelnetIcon[] = {
  758.  10000+kTelnetIcon, 0, 16, 16, 16,
  759.  0x78f8, 0x78f8, 0xfdfc, 0xffff, 0xfdfd,  0xfc1,  0xfc1,  0xfc1,
  760.   0xfc3, 0x1fff, 0x1ff1, 0xf79f, 0xf79f, 0xffff, 0xf79e, 0xf79e 
  761.   ,0,0,0,0,0,0 
  762.     };
  763.     new DIcon( (IconStore*) rTelnetIcon);
  764.  
  765. unsigned short rWhoisPhonebookIcon[] = {
  766.  10000+kWhoisPhonebookIcon, 0, 16, 16, 16,
  767.       0,      0,  0x7f0, 0x1ffc, 0x3ffc, 0x1ffc,  0x7f0,  0xff0,
  768.   0xff0,  0xff0, 0xffff,    0x1,    0x1,    0x1,    0x1, 0xffff 
  769.   ,0,0,0,0,0,0 
  770.     };
  771.     new DIcon( (IconStore*) rWhoisPhonebookIcon);
  772.  
  773. unsigned short rBinaryIcon[] = {
  774.  10000+kBinaryIcon, 0, 16, 16, 16,
  775.  0x7ff0, 0x4038, 0x402c, 0x403c, 0x4ff4, 0x4ff4, 0x4004, 0x4ff4,
  776.  0x4ff4, 0x4004, 0x4ff4, 0x4ff4, 0x4004, 0x4004, 0x4004, 0x7ffc 
  777.   ,0,0,0,0,0,0 
  778.     };
  779.     new DIcon( (IconStore*) rBinaryIcon);
  780.  
  781. unsigned short rImageIcon[] = {
  782.  10000+kImageIcon, 0, 16, 16, 16,
  783.  0x7ff0, 0x5c38, 0x5c2c, 0x5dfc, 0x5d24, 0x5d64, 0x5cc4, 0x5404,
  784.  0x55f4, 0x5d7c, 0x554c, 0x55dc, 0x5474, 0x5c04, 0x4404, 0x7ffc 
  785.   ,0,0,0,0,0,0 
  786.     };
  787.     new DIcon( (IconStore*) rImageIcon);
  788.  
  789. unsigned short rMovieIcon[] = {
  790.  10000+kMovieIcon, 0, 16, 16, 16,
  791.  0x7fe0, 0x7030, 0x57e8, 0x77fc, 0x5014, 0x7ffc, 0x5014, 0x77dc,
  792.  0x57d4, 0x77dc, 0x5014, 0x7ffc, 0x5014, 0x755c, 0x5014, 0x7ffc 
  793.   ,0,0,0,0,0,0 
  794.     };
  795.     new DIcon( (IconStore*) rMovieIcon);
  796.  
  797. unsigned short rHTMLIcon[] = {
  798.  10000+kHTMLIcon, 0, 16, 16, 16,
  799.  0x7ff0, 0x4038, 0x47fc, 0x4fe4, 0x4fe4, 0x47e4, 0x4fe4, 0x4fe4,
  800.  0x4fe4, 0x4fe4, 0x4004, 0xffff, 0x2288, 0x7efc, 0xfffe, 0x600c 
  801.   ,0,0,0,0,0,0 
  802.     };
  803.     new DIcon( (IconStore*) rHTMLIcon);
  804.  
  805. unsigned short rNoteIcon[] = {
  806.  10000+kNoteIcon, 0, 16, 16, 16,
  807.  0xffff, 0x8fff, 0x8fff, 0xaf07, 0xae03, 0x8e03, 0x8df9, 0x8df9,
  808.  0x8c01, 0x8df1, 0xbdf9, 0x9c03, 0x9c07, 0xbfff, 0x9fff, 0xffff 
  809.   ,0,0,0,0,0,0 
  810.     };
  811.     new DIcon( (IconStore*) rNoteIcon);
  812.  
  813.  
  814.  
  815.  
  816.  
  817.     // tiny icons
  818.  
  819. unsigned short sTextIcon[] = {
  820.  20000+kTextIcon, 0, 13, 13, 12,
  821.  0xff00, 0x8180, 0x81c0, 0xbe40, 0x8040, 0xbe40, 0x8040, 0xbe40,
  822.  0x8040, 0xbe40, 0x8040, 0xffc0 
  823.   ,0,0,0,0,0,0 
  824.     };
  825.     new DIcon( (IconStore*) sTextIcon);
  826.  
  827. unsigned short sFolderIcon[] = {
  828.  20000+kFolderIcon, 0, 12, 12, 10,
  829.  0x3800, 0x4400, 0x83f0, 0x8010, 0x8010, 0x8010, 0x8010, 0x8010,
  830.  0x8010, 0xfff0 
  831.   ,0,0,0,0,0,0 
  832.     };
  833.     new DIcon( (IconStore*) sFolderIcon);
  834.  
  835. unsigned short sPhonebookIcon[] = {
  836.  20000+kPhonebookIcon, 0, 12, 12, 10,
  837.  0x7f80, 0xffc0, 0x7f80, 0x3f00, 0x3f00, 0xffe0, 0x8020, 0x8020,
  838.  0x8020, 0xffe0 
  839.   ,0,0,0,0,0,0 
  840.     };
  841.     new DIcon( (IconStore*) sPhonebookIcon);
  842.  
  843. unsigned short sSoundIcon[] = {
  844.  20000+kSoundIcon, 0, 13, 13, 12,
  845.  0xff00, 0x8180, 0x81c0, 0x8040, 0x8040, 0x8040, 0x8040, 0x8040,
  846.  0x8040, 0x8040, 0x8040, 0xffc0 
  847.   ,0,0,0,0,0,0 
  848.     };
  849.     new DIcon( (IconStore*) sSoundIcon);
  850.  
  851. unsigned short sBinhexIcon[] = {
  852.  20000+kBinhexIcon, 0, 13, 13, 12,
  853.  0xff00, 0x8180, 0x81c0, 0x8040, 0x8040, 0x8040, 0x8040, 0x8040,
  854.  0x8040, 0x8040, 0x8040, 0xffc0 
  855.   ,0,0,0,0,0,0 
  856.     };
  857.     new DIcon( (IconStore*) sBinhexIcon);
  858.  
  859. unsigned short sDefaultIcon[] = {
  860.  20000+kDefaultIcon, 0, 13, 13, 11,
  861.  0xfff0, 0x8030, 0x9e30, 0xb330, 0xb330, 0x8230, 0x8c30, 0x8c30,
  862.  0x8c30, 0x8030, 0xffe0 
  863.   ,0,0,0,0,0,0 
  864.     };
  865.     new DIcon( (IconStore*) sDefaultIcon);
  866.  
  867. unsigned short sUuencodeIcon[] = {
  868.  20000+kUuencodeIcon, 0, 13, 13, 12,
  869.  0x7f80, 0xbf40, 0xfec0, 0xf8c0, 0xf0c0, 0xf8c0, 0xffc0, 0x8040,
  870.  0x8740, 0x8040, 0xffc0, 0x4080 
  871.   ,0,0,0,0,0,0 
  872.     };
  873.     new DIcon( (IconStore*) sUuencodeIcon);
  874.  
  875. unsigned short sIndexIcon[] = {
  876.  20000+kIndexIcon, 0, 13, 13, 11,
  877.    0x80,  0x380, 0xfff0, 0x8480, 0xe4b0, 0x8480, 0xedb0, 0x8d80,
  878.  0xe030, 0x8000, 0xfff0 
  879.   ,0,0,0,0,0,0 
  880.     };
  881.     new DIcon( (IconStore*) sIndexIcon);
  882.  
  883. unsigned short sTelnetIcon[] = {
  884.  20000+kTelnetIcon, 0, 12, 12, 10,
  885.  0x7f80, 0xffc0, 0x7f80, 0x3f00, 0x3f00, 0xffe0, 0x8020, 0x8020,
  886.  0x8020, 0xffe0 
  887.   ,0,0,0,0,0,0 
  888.     };
  889.     new DIcon( (IconStore*) sTelnetIcon);
  890.  
  891. unsigned short sWhoisPhonebookIcon[] = {
  892.  20000+kWhoisPhonebookIcon, 0, 13, 13, 12,
  893.  0xff00, 0x8180, 0x81c0, 0x9040, 0xa840, 0xa840, 0x9240, 0x8240,
  894.  0x8240, 0x8240, 0x8040, 0xffc0 
  895.   ,0,0,0,0,0,0 
  896.     };
  897.     new DIcon( (IconStore*) sWhoisPhonebookIcon);
  898.  
  899. unsigned short sBinaryIcon[] = {
  900.  20000+kBinaryIcon, 0, 13, 13, 12,
  901.  0xff00, 0x8180, 0x81c0, 0x8040, 0x8040, 0x8040, 0x8040, 0x8040,
  902.  0x8040, 0x8040, 0x8040, 0xffc0 
  903.   ,0,0,0,0,0,0 
  904.     };
  905.     new DIcon( (IconStore*) sBinaryIcon);
  906.  
  907. unsigned short sImageIcon[] = {
  908.  20000+kImageIcon, 0, 13, 13, 12,
  909.  0xff00, 0xb180, 0xb1c0, 0xb640, 0xb640, 0xb040, 0xb040, 0x8240,
  910.  0xb740, 0xb240, 0x9040, 0xffc0 
  911.   ,0,0,0,0,0,0 
  912.     };
  913.     new DIcon( (IconStore*) sImageIcon);
  914.  
  915. unsigned short sMovieIcon[] = {
  916.  20000+kMovieIcon, 0, 13, 13, 12,
  917.  0xff00, 0xbf80, 0xe1c0, 0xe1c0, 0xbf40, 0xe1c0, 0xe1c0, 0xbf40,
  918.  0xe1c0, 0xe1c0, 0xbf40, 0xffc0 
  919.   ,0,0,0,0,0,0 
  920.     };
  921.     new DIcon( (IconStore*) sMovieIcon);
  922.  
  923. unsigned short sHTMLIcon[] = {
  924.  20000+kHTMLIcon, 0, 14, 14, 14,
  925.  0xff00, 0x8180, 0x9fc0, 0xbf40, 0x9f40, 0xbf40, 0xbf40, 0x8040,
  926.  0xffc0,  0xc00, 0x4c80, 0xffc0, 0x4080, 0x0000 
  927.   ,0,0,0,0,0,0 
  928.     };
  929.     new DIcon( (IconStore*) sHTMLIcon);
  930.  
  931. unsigned short sNoteIcon[] = {
  932.  20000+kNoteIcon, 0, 13, 13, 12,
  933.  0xfff0, 0x8ff0, 0x8e30, 0xac30, 0x8d90, 0x8c10, 0x8dd0, 0x9c10,
  934.  0x9d90, 0xb030, 0x9ff0, 0xfff0 
  935.   ,0,0,0,0,0,0 
  936.     };
  937.     new DIcon( (IconStore*) sNoteIcon);
  938. }
  939.  
  940.  
  941. void InitializeUGopher()
  942. {
  943.         // this should be flexible enough for other oses, default is "gmap-local"
  944.         char* kLocalMapSection= "gpmap-local";
  945. #ifdef WIN_MAC
  946.         kLocalMapSection = "gpmap-local-mac";
  947. #endif
  948. #ifdef OS_UNIX
  949.         kLocalMapSection = "gpmap-local-unix";
  950. #endif
  951. #ifdef OS_DOS
  952.         kLocalMapSection = "gpmap-local-msdos";
  953. #endif
  954.  
  955.             // call from app.inits 
  956.     gDoSuffix2MacMap= false;
  957.     gNeedTypeChange= false;
  958.     gGopherMap = NULL;
  959.     gYesNo[false]= "No";
  960.     gYesNo[true ]= "Yes";
  961.  
  962.     NewGopherMap();
  963.  
  964.     ReadGoMapPrefSection("gpmap-types", kdKindData, gDefaultTypes);
  965.     ReadGoMapPrefSection("gpmap-gopher0", kdServerTypeData, gDefaultServerTypes);
  966.     ReadGoMapPrefSection("gpmap-server-suffix", kdServerSuffixData, gDefaultSuffixes);
  967.     ReadGoMapPrefSection(kLocalMapSection, kdLocalData, gDefaultLocal);
  968.     ReadGoMapPrefSection("gpmap-local", kdLocalData, NULL);
  969.  
  970.     gGopherIconID= kDefaultIcon;
  971.   StoreGopherIcons();
  972.     gGopherIcons= gIconList;     // is this what we want??
  973.     gIconSize= 2;                         // need to read in some app prefs  
  974. }
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981. // DGopherMap ------------------------------
  982.  
  983.  
  984. DGopherMap::DGopherMap()
  985. {
  986.     Initialize();
  987. }
  988.  
  989. DGopherMap::~DGopherMap()
  990. {
  991.     MemFree(fSuffix); 
  992.     MemFree(fHandlerName); 
  993.     MemFree(fParameters); 
  994. //DGodocKindList    
  995.     if (fKind) delete fKind; 
  996.     if (fServerSuffixes) delete fServerSuffixes; 
  997. }
  998.  
  999. Boolean DGopherMap::suicide(void) 
  1000. { 
  1001.     if (GetOwnerCount() <= 1) { 
  1002.         delete this; 
  1003.         return true; 
  1004.         }
  1005.     else 
  1006.         return DObject::suicide();
  1007. }
  1008.  
  1009. Boolean DGopherMap::suicide(short ownercount)
  1010. {
  1011.     if (ownercount < 1) {
  1012.         delete this; 
  1013.         return true; 
  1014.         }
  1015.     else 
  1016.         return DObject::suicide(ownercount);
  1017. }
  1018.  
  1019. void DGopherMap::Initialize()
  1020. {
  1021.     fId= 0;
  1022.     fHandlerType= kNoHandler;
  1023.     fKind = new DGodocKindList();
  1024.     fPreference= 0;
  1025.     fTransferType= kTransferBinary; 
  1026.     fServerSuffixes= NULL;
  1027.     fHandlerName= NULL;
  1028.     fParameters= NULL;
  1029.     fSuffix= NULL;
  1030. #ifdef WIN_MAC
  1031.     fMacType= '\?\?\?\?';  
  1032.     fMacSire= '\?\?\?\?';
  1033. #else
  1034.         // damn 16bit os/compiler won't understand 'abcd' as a long
  1035.     fMacType= fMacSire= 0;
  1036. #endif
  1037.     fLocalType = '0';      
  1038.     fServerType = '0';      
  1039.     fMapSuffixWhen= kMapNever; 
  1040.     fSaveToDisk= false;
  1041.     fCommand= DGopher::cNewGopherFile;
  1042.     fStatus= kNochange;
  1043.     fServerLocalChanged= false;
  1044.     fServerSuffixesChanged= false;
  1045. }
  1046.  
  1047.  
  1048.  
  1049. void DGopherMap::ReadData(short datakind)
  1050. {
  1051.     switch (datakind) {
  1052.         case kdKindData:
  1053.         case kKindData:
  1054.              ReadKind(); 
  1055.              break;
  1056.         case kdServerTypeData: 
  1057.         case kServerTypeData: 
  1058.             ReadServerType(); 
  1059.             break;
  1060.         case kdServerSuffixData: 
  1061.         case kServerSuffixData:
  1062.             ReadServerSuffix(); 
  1063.             break;
  1064.         case kdLocalData: 
  1065.         case kLocalData: 
  1066.             ReadLocalHandling(); 
  1067.             break;
  1068.         }
  1069. }
  1070.  
  1071.  
  1072. void DGopherMap::ReadKind()
  1073. {
  1074.     const    char* wordbreaks = " \t\r\n";
  1075.     char     *word;
  1076. #if 1    
  1077.     //line format: "text/plain text/anykind text/unknown text/jive"
  1078.     word= strtok( fParameters, wordbreaks); 
  1079.     while (word) {
  1080.         if (!fKind) fKind= new DGodocKindList(word, true);
  1081.         else fKind->AddName(word, true);
  1082.         word= strtok( NULL, wordbreaks); 
  1083.         }
  1084. #else
  1085.     //line format: "text/plain text"
  1086.     word= strtok( fParameters, wordbreaks); if (!word) return; 
  1087.     SetKind(word); 
  1088.     word= strtok( NULL, wordbreaks); if (!word) return; 
  1089.     SetTransferBinary( to_lower(*word) != 't');
  1090. #endif
  1091. }
  1092.  
  1093.  
  1094. void DGopherMap::ReadServerType()
  1095. {
  1096.     //line format: "0    0"
  1097.     const    char* wordbreaks = " \t\r\n";
  1098.     char     *word;
  1099.     
  1100.     word= strtok( fParameters, wordbreaks); if (!word) return; 
  1101.     SetServerType( word); //fServerType= *word;
  1102.     word= strtok( NULL, wordbreaks); if (!word) return; 
  1103.     SetLocalType( word); //fLocalType= *word;
  1104. }
  1105.  
  1106.  
  1107. void DGopherMap::ReadServerSuffix()
  1108. {
  1109.     //line format: " .txt    .text    .doc"
  1110.     const    char* wordbreaks = " \t\r\n";
  1111.     char     *word;
  1112.     
  1113.     word= strtok( fParameters, wordbreaks); 
  1114.     while (word) {
  1115. #if 1
  1116.         if (!fServerSuffixes) fServerSuffixes= new DGodocKindList(word);
  1117.         else fServerSuffixes->AddName(word);
  1118. #else
  1119.         if (!gServerSuffixes) gServerSuffixes= new DList(dgiCompareMapNames,DList::kDeleteObjects);
  1120.         DMapName* aStr= new DMapName( fId, word);
  1121.         gServerSuffixes->InsertLast( aStr);
  1122. #endif
  1123.         word= strtok( NULL, wordbreaks); 
  1124.         }
  1125. }
  1126.  
  1127.  
  1128. void DGopherMap::ReadLocalHandling()
  1129. {
  1130.     const    char* wordbreaks = " \t\r\n";
  1131.     char     *word;
  1132.     short    num;
  1133.     
  1134.     word= strtok( fParameters, wordbreaks); if (!word) return; 
  1135.     SetPreference(word);
  1136.  
  1137.     word= strtok( NULL, wordbreaks); if (!word) return; 
  1138.     SetTransferBinary( to_lower(*word) != 't');
  1139.  
  1140.     word= strtok( NULL, wordbreaks); if (!word) return; 
  1141.     SetHandlerType( word);
  1142.     
  1143.     //Mac    line format: "rtf = 2    text   launch        TEXT/MSWD    'MicroSoft Word'"
  1144.     //msdos  line format: "rtf = 0    text   launch    .rtf    appname.exe"
  1145.     //unix   line format: "gif = 1    binary launch    .gif    'xv $file'"
  1146.     word= strtok( NULL, wordbreaks);  if (!word) return; 
  1147.     SetSuffix(word);
  1148.  
  1149.     if (word) {
  1150.         // all oses -- last param is fHandlerName string
  1151.         // need to watch for names w/ embedded spaces, etc -- look for ' and " delimiters  
  1152.         char* namebreaks;
  1153.         char* cp= word + StrLen(word) + 1;
  1154.         while (cp && *cp && isspace(*cp)) cp++;
  1155.         if (*cp == '"') namebreaks = "\"\r\n";
  1156.         else if (*cp == '\'') namebreaks = "\'\r\n";
  1157.         else namebreaks = " \t\r\n";
  1158.         word= strtok( cp, namebreaks);  
  1159.         if (word) SetHandlerName(word);    
  1160.         }
  1161. }
  1162.  
  1163.  
  1164. void DGopherMap::SetParameters( char* params)
  1165. {
  1166.     if (fParameters) MemFree(fParameters);
  1167.     if (params) fParameters= StrDup( (char*) params);
  1168.     else fParameters= NULL;
  1169. }
  1170.  
  1171. const char* DGopherMap::GetParameters()
  1172. {
  1173.     return fParameters;
  1174. }
  1175.  
  1176.  
  1177.  
  1178.  
  1179. void DGopherMap::SetCommand()
  1180. {
  1181.     fCommand= GetCommand();
  1182. }
  1183.  
  1184. short    DGopherMap::GetCommand()
  1185. {
  1186.     if (fHandlerType == kInternalHandler)
  1187.         switch (fId) {
  1188.                     // ?? don't really need all these, just map "text/html" to internal "text"!
  1189.   
  1190.             case kNetTextHandler:
  1191.             case kNetRTFHandler:
  1192.             case kNetPictHandler:
  1193.             case kNetGifHandler:    return DGopher::cGopherNetDoc;
  1194.  
  1195.             case kPictHandler:
  1196.             case kGifHandler:
  1197.             case kRTFHandler:
  1198.             case kHTMLHandler:
  1199.             case kMailHandler:
  1200.             case kHTTPHandler:
  1201.             case kFingerHandler    :
  1202.             case kWhoisHandler    :
  1203.             case kTextHandler        :    return DGopher::cNewGopherText;
  1204.  
  1205.             case kImageHandler    :    return DGopher::cNewGopherImage;
  1206.  
  1207.             case kCSOHandler        :
  1208.             case kQueryHandler    :
  1209.             case kFolderPlusHandler:
  1210.             case kFolderHandler    :    return DGopher::cNewGopherFolder;
  1211.             
  1212.             default:
  1213.             case kNoteHandler        : 
  1214.             case kErrHandler        : return DGopher::cNoCommand;
  1215.             }
  1216.     else 
  1217.         return DGopher::cNewGopherFile;
  1218. }
  1219.  
  1220.  
  1221. #if 0
  1222. short DGopherMap::GetHandlerType()
  1223. {
  1224.     return fHandlerType;
  1225. }
  1226. #endif
  1227.  
  1228. const char* DGopherMap::GetHandlerType()
  1229. {
  1230.     switch (fHandlerType) {
  1231.         case kInternalHandler    : return "Internal";
  1232.         case kExternalHandler    : return "External";
  1233.         default:
  1234.         case kNoHandler                : return "None";
  1235.         }
  1236. }
  1237.  
  1238. void DGopherMap::SetHandlerType( char* s)
  1239. {
  1240.         // internal, external==launch, none, ???
  1241.     if (s) switch (*s) {
  1242.         case 'i':
  1243.         case 'I': fHandlerType= kInternalHandler; break;
  1244.         case 'e':
  1245.         case 'E':  
  1246.         case 'l':
  1247.         case 'L': fHandlerType= kExternalHandler;  break;
  1248.         case 'n':
  1249.         case 'N':  
  1250.         default : fHandlerType= kNoHandler;  break;
  1251.         }
  1252. }
  1253.  
  1254.     
  1255. const char* DGopherMap::GetLocalType()
  1256. {
  1257.     static char s[2]; 
  1258.     s[0]= fLocalType;
  1259.     s[1]= 0;
  1260.     return s;
  1261. }
  1262.  
  1263. void DGopherMap::SetLocalType( char* s)
  1264. {
  1265.     if (s) fLocalType= s[0];
  1266. }
  1267.  
  1268. const char* DGopherMap::GetServerType()
  1269. {
  1270. #if 0
  1271.     long i, n= gServerType->GetSize();
  1272.     for (i=0; i<n; i++) {
  1273.         DMapName* stype= (DMapName*) gServerType->At(i);
  1274.         if (stype && stype->fId == fId)
  1275.             return stype->fName;
  1276.         }
  1277.     return NULL;
  1278. #else
  1279.     static char s[2]; 
  1280.     s[0]= fServerType;
  1281.     s[1]= 0;
  1282.     return s;
  1283. #endif
  1284. }
  1285.  
  1286.  
  1287. void DGopherMap::SetServerType( char* s)
  1288. {
  1289. #if 0
  1290.     if (!gServerType) gServerType= new DList(dgiCompareMapNames,DList::kDeleteObjects);
  1291.     DMapName* kind= new DMapName( fId, s);
  1292.     //if (!gServerType->GetEqualItemNo(kind)) //<< requires special DList compare func
  1293.     gServerType->InsertLast( kind);
  1294. #else
  1295.     if (s) fServerType= s[0];
  1296. #endif
  1297. }
  1298.  
  1299. const char* DGopherMap::GetMapWhen()
  1300. {
  1301.     switch (fMapSuffixWhen) {
  1302.         case kMapAlways    : return "Always";  
  1303.         case kMapDefault: return "Default";
  1304.         default:
  1305.         case kMapNever     : return "Never";
  1306.         }
  1307. }
  1308.  
  1309. void DGopherMap::SetMapWhen(char* when)
  1310. {
  1311.     if (when) switch (*when) {
  1312.         case 'a':
  1313.         case 'A': fMapSuffixWhen= kMapAlways; break;
  1314.         case 'd':
  1315.         case 'D': fMapSuffixWhen= kMapDefault; break;
  1316.         default : fMapSuffixWhen= kMapNever; break;
  1317.         }
  1318. }
  1319.  
  1320.  
  1321. void DGopherMap::SetSaveToDisk(Boolean turnon) 
  1322. { 
  1323.     fSaveToDisk= turnon;
  1324. }
  1325.  
  1326. Boolean DGopherMap::GetSaveToDisk()
  1327. {
  1328.     //??
  1329.     return  (fHandlerType != kInternalHandler || fSaveToDisk); 
  1330. }
  1331.  
  1332. Boolean DGopherMap::GetTransferBinary() 
  1333. { 
  1334.     return (fTransferType == kTransferBinary);
  1335. }
  1336.  
  1337. void DGopherMap::SetTransferBinary(Boolean turnon) 
  1338. { 
  1339.     if (turnon) fTransferType = kTransferBinary;
  1340.     else fTransferType = kTransferText; 
  1341. }
  1342.  
  1343.  
  1344. Boolean DGopherMap::GetDisplay()
  1345. {
  1346.     return  (fHandlerType == kInternalHandler); 
  1347. }
  1348.  
  1349.  
  1350. Boolean DGopherMap::Map(DGopher* aGopher)
  1351. {
  1352.     Boolean changedtype= false;
  1353.     aGopher->fMacType= fMacType;  
  1354.     aGopher->fMacSire= fMacSire;
  1355.     aGopher->fSaveToDisk= fSaveToDisk;
  1356.     aGopher->fLaunch= (fHandlerType == kExternalHandler);
  1357.     aGopher->fCommand= GetCommand();
  1358.     short oldtt= aGopher->fTransferType;
  1359.     aGopher->fTransferType= fTransferType;
  1360.     
  1361.   if (aGopher->fType != kTypeQuery) { //?? do we always want to do this ?
  1362.         changedtype= (aGopher->fType != fLocalType);
  1363.         aGopher->fType= fLocalType;
  1364.         }
  1365.  
  1366.     if (oldtt != fTransferType)
  1367.       switch (fTransferType) {
  1368.         case kTransferBinary:  
  1369.             aGopher->SwapPathType('0','9');
  1370.             break;
  1371.         case kTransferText:  
  1372.             aGopher->SwapPathType('9','0');
  1373.             break;
  1374.         }                    
  1375.     return changedtype;
  1376. }
  1377.  
  1378.  
  1379. const char* DGopherMap::GetID() 
  1380. { 
  1381.     if (fHandlerType == kInternalHandler && (fId>=0 && fId < kMaxInternalHandler))
  1382.         return gInternalHandlerIDs[fId];
  1383.     else
  1384.         return Idtype2Str(fId);
  1385. }
  1386.  
  1387. void DGopherMap::SetID( char* s)
  1388. {
  1389.     char sid[5];
  1390.     short i;
  1391.     for (i=0; i<4; i++) if (s[i]<' ') sid[i]=' '; else sid[i]= s[i];
  1392.     sid[4]= 0;
  1393.   for ( i= 0; i<kMaxInternalHandler; i++) 
  1394.       if (StrNCmp(sid, gInternalHandlerIDs[i], 4) == 0) {
  1395.           fId= i;
  1396.           fHandlerType= kInternalHandler;
  1397.           return;
  1398.           }
  1399.     fId= Str2Idtype(sid);
  1400.     if (fHandlerType==kInternalHandler) fHandlerType= kNoHandler;
  1401. }
  1402.  
  1403.  
  1404. const char* DGopherMap::GetMacTypeNSire() 
  1405. { 
  1406.     // "TEXT/R*ch",  "WDBN/MSWD", "APPL/IGo4"
  1407.     static char typensire[10];
  1408.     StrNCpy(typensire, Idtype2Str(fMacType), 4);
  1409.     typensire[4]= '/';
  1410.     StrNCpy(typensire+5, Idtype2Str(fMacSire), 4);
  1411.     typensire[9]= 0;
  1412.     return typensire;
  1413. }
  1414.  
  1415. void DGopherMap::SetMacTypeNSire( char* s)
  1416. {
  1417.     // "TEXT/R*ch",  "WDBN/MSWD", "APPL/IGo4"
  1418.     if (s) {
  1419.         fMacType= Str2Idtype( s);
  1420.         if (StrLen(s) > 5) fMacSire= Str2Idtype( s+5);
  1421.         }
  1422. }
  1423.  
  1424.  
  1425. const char* DGopherMap::GetSuffix()
  1426. {
  1427. #ifdef WIN_MAC
  1428.     return GetMacTypeNSire();
  1429. #else
  1430.     return  fSuffix; 
  1431. #endif
  1432. }
  1433.  
  1434. void DGopherMap::SetSuffix( char* s)
  1435. {
  1436. #ifdef WIN_MAC
  1437.     SetMacTypeNSire(s);
  1438. #else
  1439.     if (fSuffix) MemFree(fSuffix);
  1440.     fSuffix= StrDup(s);
  1441. #endif
  1442. }
  1443.  
  1444.  
  1445. const char* DGopherMap::GetServerSuffixes()
  1446. {
  1447.         // FIX LATER
  1448.  
  1449.     return  NULL; 
  1450. }
  1451.  
  1452. void DGopherMap::SetServerSuffixes( char* s)
  1453. {
  1454.         // FIX LATER
  1455. }
  1456.  
  1457.  
  1458. const char* DGopherMap::GetKind()
  1459. {
  1460.     if (fStatus == kDeleted) return "*** DELETED ***";
  1461. #if 1
  1462.     else if (fKind) return fKind->GetName();
  1463.     else return "type/unknown";
  1464. #else
  1465.     else if (gNetKinds) {
  1466.         long i, n= gNetKinds->GetSize();
  1467.         for (i=0; i<n; i++) {
  1468.             DMapName* kind= (DMapName*) gNetKinds->At(i);
  1469.             if (kind->fId == fId) return kind->fName;
  1470.             }
  1471.         }
  1472.     return "type/unknown";
  1473. #endif
  1474. }
  1475.  
  1476. void DGopherMap::SetKind( char* s)
  1477. {
  1478. #if 1
  1479.     const    char* wordbreaks = " \t\r\n";
  1480.     char     *word;
  1481.     s= StrDup(s);
  1482.     word= strtok( s, wordbreaks); 
  1483.     while (word) {
  1484.         if (!fKind) fKind= new DGodocKindList(word, true);
  1485.         else fKind->AddName(word, true);
  1486.         word= strtok( NULL, wordbreaks); 
  1487.         }
  1488.     MemFree(s);
  1489.     
  1490. #else
  1491. #if 1
  1492.     if (!gNetKinds) gNetKinds= new DList(dgiCompareMapNames,DList::kDeleteObjects);
  1493.     DMapName* kind= new DMapName( fId, s);
  1494.     StrLocase(kind->fName);
  1495.     //if (!gNetKinds->GetEqualItemNo(kind)) //<< requires special DList compare func
  1496.     long i, n= gNetKinds->GetSize();
  1497.     for (i= 0; i<n; i++) {
  1498.         DMapName* old= (DMapName*) gNetKinds->At(i);
  1499.         if (Nlm_StringCmp(kind->fName, old->fName)==0) {
  1500.             old->fId= fId;
  1501.             return;
  1502.             }
  1503.         }
  1504.     gNetKinds->InsertLast( kind);
  1505. #else
  1506.     if (fKind) {
  1507.         // ?? assume fKind is primary kind, and s is alternate name
  1508.         //MemFree(fKind);
  1509.         if (fAltKind) MemFree(fAltKind);
  1510.         fAltKind= StrDup(s);
  1511.         StrLocase(fAltKind);
  1512.         }
  1513.     else {
  1514.         fKind= StrDup(s);
  1515.         StrLocase(fKind);
  1516.         }
  1517. #endif
  1518. #endif
  1519. }
  1520.  
  1521. const char* DGopherMap::GetHandlerName()
  1522. {
  1523.     return fHandlerName;  
  1524. }
  1525.  
  1526. void DGopherMap::SetHandlerName( char* s)
  1527. {
  1528.     if (fHandlerName) MemFree(fHandlerName);
  1529.     fHandlerName= StrDup(s);
  1530.     //StrLocase(fHandlerName);
  1531. }
  1532.  
  1533. const char* DGopherMap::GetPreference()
  1534. {
  1535.     static char snum[40]; 
  1536.     Dgg_LongToStr( fPreference, snum, 0, 40);
  1537.     return snum;
  1538. }
  1539.  
  1540. void DGopherMap::SetPreference( char* s)
  1541. {
  1542.     fPreference = atol( s);  
  1543. }
  1544.  
  1545.  
  1546.  
  1547.  
  1548.  
  1549.  
  1550. // DGopherMapList ------------------
  1551.  
  1552.  
  1553. DGopherMapList::DGopherMapList() :
  1554.     DList(NULL,DList::kDeleteObjects)
  1555. {
  1556. }
  1557.  
  1558.  
  1559. void DGopherMapList::DeleteItem(char* theId)
  1560. {
  1561.     DGopherMap* mapper= new DGopherMap();
  1562.         if (mapper) {
  1563.         mapper->SetID( theId);
  1564.         long i, n= this->GetSize();
  1565.         for (i= 0; i<n; i++) {
  1566.             DGopherMap* current= this->GopherMapAt(i);
  1567.             if (current && mapper->fId == current->fId) {
  1568.                 if (current->fStatus == kDeleted) current->fStatus= kNochange;  
  1569.                 else current->fStatus= kDeleted; 
  1570.                 //this->AtDelete(i); // this deletes the current object 
  1571.                 break;
  1572.                 }
  1573.             }
  1574.         delete mapper;
  1575.         }
  1576. }
  1577.  
  1578. void DGopherMapList::ReadParams(char* theId, char* params, short datakind)
  1579. {
  1580.     DGopherMap* mapper= new DGopherMap();
  1581.     if (mapper) {
  1582.         mapper->SetID( theId);
  1583.         
  1584.         if (true) { // (datakind < kDontCheckDups) 
  1585.             long i, n= this->GetSize();
  1586.             for (i= 0; i<n; i++) {
  1587.                 DGopherMap* current= this->GopherMapAt(i);
  1588.                 if (current && mapper->fId == current->fId) {
  1589.                     current->SetParameters(params);
  1590.                     current->ReadData(datakind);
  1591.                     delete mapper;
  1592.                     return;
  1593.                     }
  1594.                 }
  1595.             }
  1596.         mapper->SetParameters(params);
  1597.         mapper->ReadData(datakind);
  1598.         this->InsertLast( mapper);
  1599.         }
  1600. }
  1601.  
  1602.  
  1603. DGopherMap* DGopherMapList::MatchHandlerKind(unsigned short& lastrank, char* aKind)
  1604. {
  1605.     Boolean okay, gotKind, gotHand;
  1606. #if 1
  1607.     long i, n= this->GetSize();
  1608.     for (i= 0; i<n; i++) {
  1609.         DGopherMap* mapper= this->GopherMapAt(i);
  1610.         gotKind= (mapper->fKind) ? mapper->fKind->Match(aKind) : false;
  1611.         if (gotKind && mapper->fPreference) {
  1612.             lastrank= mapper->fPreference;
  1613.             return mapper;
  1614.             }        
  1615.         }
  1616. #else
  1617. #if 1
  1618.     long i, n= gNetKinds->GetSize();
  1619.     for (i= 0; i<n; i++) {
  1620.         DMapName* kind= (DMapName*) gNetKinds->At(i);
  1621.         if (kind && Nlm_StringCmp(kind->fName,aKind) == 0) {
  1622.             DGopherMap* mapper= this->MatchID( kind->fId);
  1623.             if (mapper && mapper->fPreference > lastrank) {
  1624.                 lastrank= mapper->fPreference;
  1625.                 return mapper;
  1626.                 }
  1627.              }
  1628.         }
  1629. #else    
  1630.     long i, n= this->GetSize();
  1631.     for (i= 0; i<n; i++) {
  1632.         DGopherMap* mapper= this->GopherMapAt(i);
  1633.         gotKind= (mapper->fKind) ? 
  1634.             Nlm_StringCmp(mapper->fKind,aKind) == 0 : false;
  1635.         if (!gotKind) gotKind= (mapper->fAltKind) ? 
  1636.                 Nlm_StringCmp(mapper->fAltKind,aKind) == 0 : false;
  1637.         okay= gotKind;
  1638.         unsigned short rank= mapper->fPreference;
  1639.         if (okay) okay= (rank > lastrank);
  1640.         if (okay) {
  1641.             lastrank= rank;
  1642.             return mapper;
  1643.             }
  1644.         }
  1645. #endif
  1646. #endif
  1647.     return NULL;
  1648. }
  1649.  
  1650. DGopherMap* DGopherMapList::MatchHandlerKind(DGopher* aGopher)
  1651. { 
  1652.     // need to decide which criteria to match on ...
  1653.     if (aGopher->fViews && (aGopher->fViews->GetSize()>0)) {
  1654.         unsigned short lastrank = 0;
  1655.         short choice= aGopher->fViewchoice;
  1656.         if (choice) {
  1657.             DGopherItemView* giv= (DGopherItemView*) aGopher->fViews->At(choice-1);
  1658.             if (giv) {
  1659.                 char* aKind = StrDup(giv->Kind()); 
  1660.                 StrLocase(aKind);
  1661.                 char* cp= StrChr(aKind,' '); if (cp) *cp= 0;
  1662.                     // add Language match !?!!
  1663.                 DGopherMap* result= this->MatchHandlerKind( lastrank, aKind); 
  1664.                 MemFree( aKind);
  1665.                 return result;
  1666.                 }
  1667.             else return NULL;
  1668.             }
  1669.             
  1670.         else { // stroll thru this map, look for prefered match to aGopher->fViews...
  1671.             short maxchoice= aGopher->fViews->GetSize();
  1672.             DGopherMap* bestmapper = NULL;
  1673.             for (choice = 1; choice <= maxchoice; choice++) {
  1674.                 DGopherItemView* giv= (DGopherItemView*) aGopher->fViews->At(choice-1);
  1675.                 if (giv) {
  1676.                     char* aKind = StrDup(giv->Kind()); 
  1677.                     StrLocase(aKind);                     
  1678.                     char* cp= StrChr(aKind,' '); if (cp) *cp= 0;
  1679.                     DGopherMap* amapper= this->MatchHandlerKind( lastrank, aKind); 
  1680.                     if (amapper) bestmapper= amapper;
  1681.                     MemFree( aKind);
  1682.                     }
  1683.                 }
  1684.             return bestmapper;
  1685.             }
  1686.         }
  1687.     return NULL;
  1688. }
  1689.  
  1690. DGopherMap* DGopherMapList::MatchID( long theId)
  1691. { 
  1692.     long i, n= this->GetSize();
  1693.     for (i= 0; i<n; i++) {
  1694.         DGopherMap* mapper= this->GopherMapAt(i);
  1695.         if (theId == mapper->fId)    return mapper;
  1696.         }
  1697.     return NULL;
  1698. }
  1699.  
  1700.  
  1701. DGopherMap* DGopherMapList::MatchGopherType( char theType, Boolean matchAny)
  1702. { 
  1703. #if 0
  1704.   if (gServerType) {
  1705.       long i, n= gServerType->GetSize();
  1706.         for (i= 0; i<n; i++) {
  1707.             DMapName* stype= (DMapName*) gServerType->At(i);
  1708.             if (stype && *stype->fName == theType) {
  1709.                 DGopherMap* mapper= this->MatchID( stype->fId);
  1710.                 if (mapper && (matchAny || mapper->fMapSuffixWhen == kMapAlways))
  1711.                     return mapper;
  1712.                 else
  1713.                     return NULL;
  1714.                 }
  1715.             }
  1716.       }
  1717. #else
  1718.     long i, n= this->GetSize();
  1719.     for (i= 0; i<n; i++) {
  1720.         DGopherMap* mapper= this->GopherMapAt(i);
  1721.         if (theType == mapper->fServerType &&
  1722.             (matchAny || mapper->fMapSuffixWhen == kMapAlways))
  1723.                             //  ^^^^^^^^^^^^^ NEED TO CHANGE TO ANOTHER FIELD, e.g. fMapServerTypeWhen 
  1724.             return mapper;
  1725.         }
  1726. #endif
  1727.     return NULL;
  1728. }
  1729.  
  1730.  
  1731. DGopherMap* DGopherMapList::MatchGopherType(DGopher* aGopher)
  1732. { 
  1733.     return MatchGopherType( aGopher->fType, false);
  1734. }
  1735.  
  1736.  
  1737.  
  1738. DGopherMap* DGopherMapList::MatchSuffix(const char* pathname, char gopherType)
  1739. { 
  1740.             ///  FIX THIS LATER
  1741. #if 0
  1742.     char* suffix= StrRChr( pathname, '.');
  1743.     if (!suffix) suffix= (char*) pathname;
  1744.     long i, n= gServerSuffixes->GetSize();
  1745.     for (i= 0; i<n; i++) {
  1746.         DMapName* kind= (DMapName*) gServerSuffixes->At(i);
  1747.         if (kind && Nlm_StringCmp(kind->fName,suffix) == 0) {
  1748.             DGopherMap* mapper= this->MatchID( kind->fId);
  1749.             if (mapper && (mapper->fMapSuffixWhen == kMapAlways)
  1750.              || (mapper->fMapSuffixWhen == kMapDefault && gopherType == kTypeFile))
  1751.                     return mapper;
  1752.              }
  1753.         }
  1754. #endif
  1755.     return NULL;
  1756. }
  1757.  
  1758.  
  1759. DGopherMap* DGopherMapList::MatchSuffix(DGopher* aGopher)
  1760. { 
  1761.     return MatchSuffix( aGopher->GetPath(), aGopher->fType);
  1762. }
  1763.  
  1764.  
  1765.  
  1766.  
  1767. DGopherMap* DGopherMapList::GetPreferedFiletype(char* aKind, 
  1768.                              long& macFileType, long& macCreator, char*& suffix)
  1769. {
  1770.     unsigned short lastrank = 0;
  1771.     DGopherMap* gmap = NULL;
  1772.     aKind= StrDup(aKind);
  1773.     StrLocase(aKind);
  1774.     char* cp= StrChr(aKind,' '); if (cp) *cp= 0;
  1775.     gmap= this->MatchHandlerKind( lastrank, aKind);
  1776.     MemFree(aKind);
  1777.     
  1778.     if (gmap) {
  1779.         macFileType= gmap->fMacType;
  1780.         macCreator = gmap->fMacSire;
  1781.         suffix= StrDup(gmap->GetSuffix());
  1782.         return gmap;
  1783.         }
  1784.     else 
  1785.         return NULL;
  1786. }
  1787.  
  1788.  
  1789. DGopherMap* DGopherMapList::GetPreferedFiletype(DGopher* aGopher, 
  1790.                              long& macFileType, long& macCreator, char*& suffix)
  1791. {
  1792.     unsigned short lastrank = 0;
  1793.     DGopherMap* gmap = NULL;
  1794.     if (!aGopher) return false;
  1795.     char* aKind= StrDup(aGopher->GetViewChoiceKind());
  1796.     if (aKind) {
  1797.         StrLocase(aKind);
  1798.         char* cp= StrChr(aKind,' '); if (cp) *cp= 0;
  1799.         gmap= this->MatchHandlerKind( lastrank, aKind);
  1800.         MemFree(aKind);
  1801.         }
  1802.     if (!gmap) 
  1803.         gmap= this->MatchGopherType( aGopher->fType, true);
  1804.     if (gmap) {
  1805.         macFileType= gmap->fMacType;
  1806.         macCreator = gmap->fMacSire;
  1807.         suffix= StrDup(gmap->GetSuffix());
  1808.             //?? do we want to set these in caller's data !?
  1809.         //aGopher->fMacType= macFileType;
  1810.         //aGopher->fMacSire= macCreator;
  1811.         //aGopher->fLaunch= (gmap->fHandlerType == kExternalHandler);
  1812.         return gmap;
  1813.         }
  1814.     else 
  1815.         return NULL;
  1816. }
  1817.  
  1818.             
  1819.     
  1820.  
  1821.  
  1822.  
  1823.  
  1824.  
  1825.  
  1826.  
  1827.  
  1828.  
  1829.  
  1830. //class DGoMapHandlerView : public DTableView
  1831.  
  1832. enum GoDocMessages {
  1833.     kEditButHit = 4560, kAddButHit, kRemoveButHit, 
  1834.     kServerTypeEnableHit, kServerTypeButHit,
  1835.     kServerSuffixEnableHit,kServerSuffixButHit
  1836.     };
  1837.  
  1838. Local char*    kGopherTypeExample= "application/gopher+-menu";
  1839. Local char*    kGopherHandlerExample= "MicroSoft Excel 1234567890";
  1840.  
  1841.  
  1842. DGoMapHandlerView::DGoMapHandlerView(long id, DGopherMapDoc* itsDoc, 
  1843.                                                 short pixwidth, short pixheight):
  1844.     DTableView( id, itsDoc, pixwidth, pixheight, 10, 2, 50, 20, true, false),
  1845.     fItems(NULL),
  1846.     fDoc(itsDoc)
  1847. {    
  1848.     fItems= itsDoc->fItems;
  1849.     this->SetSlateBorder(true); 
  1850.     this->SetResize( DView::relsuper, DView::relsuper);
  1851.     this->SetTableFont(gGoviewFont);
  1852.     this->GetReadyToShow(); // ??
  1853. }
  1854.  
  1855.  
  1856. void DGoMapHandlerView::Drag(Nlm_PoinT mouse)
  1857. {
  1858.     // this is called on drag, if click/release are ignored
  1859.     //short row, col;
  1860.     //PointToCell(mouse, row, col);
  1861.     DTableView::Drag(mouse);
  1862. }
  1863.  
  1864. void DGoMapHandlerView::Hold(Nlm_PoinT mouse)
  1865. {
  1866.     //short row, col;
  1867.     //PointToCell(mouse, row, col);
  1868.     DTableView::Hold(mouse);
  1869. }
  1870.  
  1871. void DGoMapHandlerView::Release(Nlm_PoinT mouse)
  1872. {
  1873.     //short row, col;
  1874.     //PointToCell(mouse, row, col);
  1875.     DTableView::Release(mouse);
  1876. }
  1877.  
  1878. void DGoMapHandlerView::DoubleClickAt(short row, short col)
  1879. {
  1880.     DGopherMap* ag= fItems->GopherMapAt(row); 
  1881.     //if (ag) Message(MSG_OK, "Click on '%s'", (char*)ag->GetName());
  1882.     //if (gKeys->option()) itsViewchoice= DGopher::kGetItemInfo;  
  1883.     if (ag) fDoc->EditLocalHandling(ag, DGoMapEditDlog::kFormLocal);
  1884. }
  1885.  
  1886. void DGoMapHandlerView::SingleClickAt(short row, short col)
  1887. {
  1888.     DTableView::SingleClickAt(row,  col);
  1889. }
  1890.  
  1891.  
  1892. DGopherMap* DGoMapHandlerView::SelectedMapper()
  1893. {
  1894.     if (GetSelectedRow() != kNoSelection) 
  1895.         return fItems->GopherMapAt( GetSelectedRow());
  1896.     else 
  1897.         return NULL;
  1898. }
  1899.  
  1900.  
  1901. void DGoMapHandlerView::GetReadyToShow()
  1902. {
  1903.      //Nlm_WindoW w= Nlm_SavePort( GetNlmObject());
  1904.     SelectFont();
  1905.     short charheight= Nlm_FontHeight();
  1906.     if (fItems && fItems->GetSize() > 0) SetTableSize( fItems->GetSize(), GetMaxCols());
  1907.     SetItemHeight(0, GetMaxRows(), charheight);
  1908.  
  1909. #if THIS_IS_DONE_IN_DOC
  1910.     short  wid;
  1911.     wid= Nlm_StringWidth(kGopherTypeExample);
  1912.     this->SetItemWidth( 0, 1, wid);
  1913. #if 0     
  1914.     wid= Nlm_StringWidth("999");
  1915.     this->SetItemWidth( 1, 1, wid);  
  1916. #endif
  1917.     wid= Nlm_StringWidth(kGopherHandlerExample);
  1918.     this->SetItemWidth( 1, 1, wid);      
  1919. #endif
  1920.     
  1921.     //Nlm_RestorePort( w);
  1922. }
  1923.  
  1924. void DGoMapHandlerView::DrawCell(Nlm_RecT r, short row, short col)
  1925. {
  1926.     // need a DTableView field to handle cell rect insets !
  1927.     char *name;
  1928.     if (col) r.left += 2; // quick fix for cells against each
  1929.     DGopherMap* mp= fItems->GopherMapAt(row); 
  1930.     if (mp) switch (col) {
  1931.         case 0:  
  1932.             Nlm_DrawString(&r, (char*)mp->GetKind(), 'l', false);
  1933.             break;   
  1934.         case 1: 
  1935. #if 0 
  1936.             Nlm_DrawString(&r, (char*)mp->GetPreference(), 'l', false);
  1937.             break;   
  1938.         case 2: 
  1939. #endif 
  1940.             name= (char*)mp->GetHandlerType();
  1941.             if (*name=='E') name=(char*)mp->GetHandlerName();
  1942.             Nlm_DrawString(&r, name, 'l', false);
  1943.             break;   
  1944.         }
  1945. }
  1946.  
  1947.  
  1948.  
  1949.  
  1950.  
  1951.  
  1952.  
  1953. // DGopherMapDoc ------------------------
  1954.  
  1955.  
  1956. DGopherMapDoc::DGopherMapDoc( long id, DGopherMapList* itsMappers) :
  1957.     DWindow(id, gApplication),
  1958.     fListView(NULL),
  1959.     fServerTypeEnable(NULL),
  1960.     fServerSuffixEnable(NULL),
  1961.     fChanged(false),
  1962.     fItems(itsMappers)  // itsMappers == gGopherMap always ??
  1963. { 
  1964.     short width= -1, height= -1, left= -10, top= -20; // default window loc
  1965.     this->InitWindow(document, width, height, left, top, "Gopher Type Handling"); 
  1966. }
  1967.  
  1968.  
  1969. //static
  1970. void DGopherMapDoc::UpdateGopherMap(short item, DGopherMap *gm)
  1971. {
  1972.     char    name[20], buf[512], *s2, *fmt;
  1973.  
  1974.     switch (gm->fStatus) {
  1975.  
  1976.         case kChanged:
  1977.         case kAdded:
  1978.             StrNCpy(name, (char*)gm->GetID(), 20);
  1979.             gm->fKind->GetAllNames( buf, sizeof(buf));
  1980.             gApplication->SetPref( buf, name, "gpmap-types");
  1981.             s2= (char*)gm->GetHandlerName();
  1982.             if (StrChr( s2, ' ') != NULL ) {
  1983.                 if (StrChr( s2, '\'') != NULL ) fmt= "%s %s %s \"%s\"";
  1984.                 else fmt= "%s %s %s %s '%s'";
  1985.                 }
  1986.             else
  1987.                 fmt= "%s %s %s %s %s";
  1988.                 
  1989.             if (!gm->GetTransferBinary()) s2= "text"; else s2= "binary";
  1990.             sprintf(buf, fmt,
  1991.                     (char*)gm->GetPreference(), 
  1992.                     s2,
  1993.                     (char*)gm->GetHandlerType(),
  1994.                     (char*)gm->GetSuffix(),
  1995.                     (char*)gm->GetHandlerName()
  1996.                     );
  1997.             gApplication->SetPref( buf,  name, "gpmap-local");
  1998.  
  1999.                 // !! set this only if requested !!
  2000.             if (gm->fServerLocalChanged) {
  2001.                 sprintf( buf, " %c %c", *(gm->GetServerType()), *(gm->GetLocalType()));
  2002.                 gApplication->SetPref( buf,  name, "gpmap-gopher0");
  2003.                 gm->fServerLocalChanged= false;
  2004.                 }
  2005.                 // !! set this only if requested !!
  2006.             if (gm->fServerSuffixesChanged) {
  2007.                 gApplication->SetPref( (char*)gm->GetServerSuffixes(), name, "gpmap-server-suffix");
  2008.                 gm->fServerSuffixesChanged= false;
  2009.                 }
  2010.             
  2011.             gm->fStatus= kNochange;
  2012.             break;
  2013.             
  2014.         case kDeleted: 
  2015.             StrNCpy(name, (char*)gm->GetID(), 20);
  2016.             gApplication->SetPref( (char*)NULL, name, "gpmap-types");
  2017.             gApplication->SetPref( (char*)NULL, name, "gpmap-gopher0");
  2018.             gApplication->SetPref( (char*)NULL, name, "gpmap-server-suffix");
  2019.             gApplication->SetPref( (char*)NULL, name, "gpmap-local");
  2020.             if (item>kEmptyIndex) gGopherMap->AtDelete(item); //fItems
  2021.             break;
  2022.         }
  2023. }
  2024.  
  2025.  
  2026. void DGopherMapDoc::Close()
  2027. {
  2028.     if (fChanged) {
  2029.         // save all mappers to disk? -- need to track deleted/changed/added for this
  2030.         long i, n= fItems->GetSize();
  2031.         for (i=0; i<n; i++) UpdateGopherMap( i, fItems->GopherMapAt(i));
  2032.         }
  2033.         
  2034.     DWindow::Close();
  2035. }
  2036.  
  2037.  
  2038. void DGopherMapDoc::Open()
  2039. {
  2040.     DView * super;
  2041.     DButton * butt;
  2042.      DCluster * clu;
  2043.     DPrompt* pr;
  2044.     short  wid,col1wid,col2wid,height;
  2045.  
  2046.     super= this;
  2047.      Nlm_SelectFont(gGoviewFont);
  2048.     col1wid= Nlm_StringWidth(kGopherTypeExample);
  2049.     pr= new DPrompt(0,super,"Net Document Type", col1wid, 0, gGoviewFont);
  2050.     super->NextSubviewToRight();
  2051.     
  2052.     col2wid= Nlm_StringWidth(kGopherHandlerExample);
  2053.     pr= new DPrompt(0,super,"Handler", col2wid, 0, gGoviewFont);
  2054.     super->NextSubviewBelowLeft();
  2055.     
  2056.     // DGoMapHandlerView goes here...
  2057.     wid= col1wid + col2wid + 10;
  2058.     height= Nlm_FontHeight() * 10;
  2059.     fListView= new DGoMapHandlerView(0,this,wid,height);
  2060.     fListView->SetItemWidth( 0, 1, col1wid);
  2061.     fListView->SetItemWidth( 1, 1, col2wid);
  2062.  
  2063.     super= this;
  2064.     super->NextSubviewBelowLeft();
  2065.     Nlm_PoinT nps;
  2066.     this->GetNextPosition( &nps);
  2067.   nps.y += 8; // view border is cut off by buttons
  2068.     this->SetNextPosition( nps);
  2069.     butt= new DButton(kEditButHit,super,"Edit");
  2070.     butt->SetResize( DView::moveinsuper, DView::moveinsuper);
  2071.     super->NextSubviewToRight();
  2072.     butt= new DButton(kAddButHit,super,"Add");
  2073.     butt->SetResize( DView::moveinsuper, DView::moveinsuper);
  2074.     super->NextSubviewToRight();
  2075.     butt= new DButton(kRemoveButHit,super,"Remove");
  2076.     butt->SetResize( DView::moveinsuper, DView::moveinsuper);
  2077.     super->NextSubviewBelowLeft();
  2078.  
  2079. #if 0
  2080.     fServerTypeEnable= new DCheckBox(kServerTypeEnableHit,super,"Use Server-Local Gopher0 map");
  2081.     fServerTypeEnable->SetStatus(gDoSuffix2MacMap);
  2082.     fServerTypeEnable->SetResize( DView::moveinsuper, DView::moveinsuper);
  2083.  
  2084.     fServerSuffixEnable= new DCheckBox(kServerSuffixEnableHit,super,"Use Server suffix map");
  2085.     fServerSuffixEnable->SetStatus(gDoSuffix2MacMap);
  2086.     fServerSuffixEnable->SetResize( DView::moveinsuper, DView::moveinsuper);
  2087.     
  2088. #else    
  2089.     clu= new DCluster( 0, super, 0, 0, false,"Server-Local type map");
  2090.     clu->SetResize( DView::moveinsuper, DView::moveinsuper);
  2091.     super= clu;  
  2092.     fServerTypeEnable= new DCheckBox(kServerTypeEnableHit,super,"Enable");
  2093.     fServerTypeEnable->SetStatus(gDoSuffix2MacMap);
  2094.     super->NextSubviewToRight();
  2095.     butt= new DButton(kServerTypeButHit,super,"Edit map");
  2096.     //if (!gDoSuffix2MacMap) butt->Disable();
  2097.  
  2098.     super= this;
  2099.     super->NextSubviewToRight();
  2100.  
  2101.     clu= new DCluster( 0, super, 0, 0, false,"Server suffix map");
  2102.     clu->SetResize( DView::moveinsuper, DView::moveinsuper);
  2103.     super= clu;  
  2104.     fServerSuffixEnable= new DCheckBox(kServerSuffixEnableHit,super,"Enable");
  2105.     fServerSuffixEnable->SetStatus(gDoSuffix2MacMap);
  2106.     super->NextSubviewToRight();
  2107.     butt= new DButton(kServerSuffixButHit,super,"Edit map");
  2108.     //if (!gDoSuffix2MacMap) butt->Disable();
  2109. #endif
  2110.     
  2111.     super= this;         
  2112.  
  2113.     AddOkayCancelButtons();
  2114.     DWindow::Open();
  2115. }
  2116.  
  2117.  
  2118. //static
  2119. Boolean DGopherMapDoc::EditHandler( char* itsKind, DGopherMap* item, short dlogKind)
  2120. {
  2121.     Boolean didEdit= false;
  2122.     if (gGopherMap && (item || dlogKind == DGoMapEditDlog::kFormNew)) {
  2123.         DGoMapEditDlog* dlg= new DGoMapEditDlog( item, dlogKind, itsKind);
  2124.         if ( dlg->PoseModally() ) {
  2125.             item= dlg->fMapper;
  2126.             if (item->fStatus == kAdded) {
  2127.                 // must add to list & also add line to listview...
  2128.                 item->newOwner();
  2129.                 item->fStatus = kChanged; // ?? otherwise edits cause new inserts !?
  2130.                 gGopherMap->InsertLast(item); // fItems->
  2131.                 //fListView->ChangeRowSize( fListView->GetMaxRows(), 1);
  2132.                 }
  2133.             //fListView->Invalidate();
  2134.             if (dlogKind == DGoMapEditDlog::kFormServerSuffixes)
  2135.                 item->fServerSuffixesChanged= true;
  2136.             else if (dlogKind == DGoMapEditDlog::kFormServerLocalMap)
  2137.                 item->fServerLocalChanged= true;
  2138.             DGopherMapDoc::UpdateGopherMap( kEmptyIndex, item); //fChanged= true;
  2139.             didEdit= true;
  2140.             }
  2141.         delete dlg; 
  2142.         }
  2143.     return didEdit;
  2144. }
  2145.  
  2146.  
  2147. void DGopherMapDoc::EditLocalHandling(DGopherMap* item, short dlogKind)
  2148. {
  2149.     if ( item || dlogKind == DGoMapEditDlog::kFormNew) {
  2150.         DGoMapEditDlog* dlg= new DGoMapEditDlog(item, dlogKind);
  2151.         if ( dlg->PoseModally() ) {
  2152.             item= dlg->fMapper;
  2153.             if (item->fStatus == kAdded) {
  2154.                 // must add to list & also add line to listview...
  2155.                 item->newOwner();
  2156.                 item->fStatus = kChanged; // ?? otherwise edits cause new inserts !?
  2157.                 fItems->InsertLast(item);  
  2158.                 fListView->ChangeRowSize( fListView->GetMaxRows(), 1);
  2159.                 }
  2160.             fListView->Invalidate();
  2161.             fChanged= true;
  2162.             if (dlogKind == DGoMapEditDlog::kFormServerSuffixes)
  2163.                 item->fServerSuffixesChanged= true;
  2164.             else if (dlogKind == DGoMapEditDlog::kFormServerLocalMap)
  2165.                 item->fServerLocalChanged= true;
  2166.             }
  2167.         delete dlg; 
  2168.         }
  2169. }
  2170.  
  2171.  
  2172.  
  2173. Boolean DGopherMapDoc::IsMyAction(DTaskMaster* action) 
  2174. {
  2175.     DGopherMap* mapper;
  2176.     DGoMapEditDlog* dlg;
  2177.     
  2178.     switch (action->Id()) {
  2179.         case kEditButHit:
  2180.             EditLocalHandling( fListView->SelectedMapper(), DGoMapEditDlog::kFormLocal);
  2181.             return true;
  2182.             
  2183.         case kAddButHit:
  2184.             EditLocalHandling( NULL, DGoMapEditDlog::kFormNew);
  2185.             return true;
  2186.         
  2187.         case kRemoveButHit:
  2188.             mapper= fListView->SelectedMapper();
  2189.             if (mapper) {
  2190.                 fItems->DeleteItem( (char*)mapper->GetID());
  2191.                 fListView->Invalidate();
  2192.                 fChanged= true;
  2193.                 }
  2194.             return true;
  2195.         
  2196.         case kServerTypeButHit:
  2197.             EditLocalHandling( fListView->SelectedMapper(), DGoMapEditDlog::kFormServerLocalMap);
  2198.             return true;
  2199.             
  2200.         case kServerSuffixButHit:
  2201.             EditLocalHandling( fListView->SelectedMapper(), DGoMapEditDlog::kFormServerSuffixes);
  2202.           return true;
  2203.  
  2204.         case kServerTypeEnableHit:
  2205.         case kServerSuffixEnableHit:
  2206.           return true;
  2207.           
  2208.         default: 
  2209.             return DWindow::IsMyAction(action);        
  2210.         }
  2211. }
  2212.  
  2213.  
  2214.  
  2215.  
  2216.  
  2217. void EditGopherMap()
  2218. {
  2219.     if (gGopherMap) {
  2220.         DGopherMapDoc* doc= new DGopherMapDoc(0, gGopherMap);
  2221.         doc->Open();
  2222.         }
  2223. }
  2224.  
  2225.  
  2226.  
  2227.  
  2228.  
  2229.  
  2230.  
  2231. #if FIX_LATER
  2232.  
  2233.  
  2234. Boolean DGopherMapView::IsMyAction(DTaskMaster* action) 
  2235. {
  2236.     
  2237.   if (action->Id() == 'appn') {
  2238.         // do nonStandardFileGet('APPL') -- search for Appl signature & doc types 
  2239.         // in chosen appl rez fork
  2240.         // stuff Sire & Type
  2241.         //call this for special sfget dialog... need to have application handle specially
  2242.  
  2243. #if FIX_LATER
  2244.         const short    cChooseAppType = 4322; // this is in UGopherApp.cp
  2245.         TList * aFileList = NULL;
  2246.         if (gHasAppleEvents && gApplication->ChooseDocument(cChooseAppType, &aFileList)) {
  2247.             CStr63    aName;
  2248.             TEditText * et;
  2249.             TButton   * bt;
  2250.             TPopup    * pop;
  2251.             TView        * super = ((TView*) source)->fSuperView;
  2252.             TFile        * aFile= (TFile*) aFileList->First();
  2253.             long        sire, sig, kind= '\?\?\?\?';
  2254.             short        err, bundlecount;
  2255.             
  2256.             err= aFile->GetFileCreator(sire);
  2257.             if (et= (TEditText*) super->FindSubview('sire')) {
  2258.                 et->SetTitle( CStr31( (long)sire), kDontRedraw);
  2259.                 et->ForceRedraw();
  2260.                 }
  2261.             aFile->GetName( aName);
  2262.             if (bt= (TButton*) super->FindSubview('appn')) {
  2263.                 bt->SetTitle( aName, kDontRedraw);
  2264.                 bt->ForceRedraw();
  2265.                 }
  2266.  
  2267.             BNDLptr bundles= ReadBundle( aFile, sig, bundlecount);
  2268.             if (bundles) {         //&& sig == sire)  
  2269.                 if (pop= (TPopup*) super->FindSubview('ptyp')) {
  2270.                     kind=  SetupTypeMenu( pop, fDefaultTypes, bundles, bundlecount);
  2271.                     if (et= (TEditText*) super->FindSubview('type')) {
  2272.                         et->SetTitle( CStr31((long) kind), kDontRedraw);
  2273.                         et->ForceRedraw();
  2274.                         }
  2275.                     }
  2276.                 }
  2277.             if (bundles) free(bundles); // made w/ malloc
  2278.             aFile = (TFile *)FreeIfObject(aFile);
  2279.             aFileList = (TList *)(FreeIfObject(aFileList));
  2280.             }
  2281. #endif
  2282.         return true;
  2283.         }
  2284.         
  2285.   else if (action->Id() == 'ptyp') {
  2286.         char  aName[256];
  2287.         DEditText * et;
  2288.         DPopupList * pop = (DPopupList*) action;
  2289.         DView * super = ((DView*) action)->fSuperior;
  2290.         pop->GetItemTitle(pop->GetValue(), aName, 255);
  2291.         if (strlen(aName) > 4) aname[4]= 0;
  2292.         if (et= (DEditText*) super->FindSubview('type')) {
  2293.             et->SetTitle( aName);
  2294.             //et->ForceRedraw();
  2295.             }
  2296.         return true;
  2297.         }
  2298.         
  2299.     else
  2300.         return Inherited::IsMyAction(action);
  2301. }
  2302.  
  2303.  
  2304.  
  2305. #endif // FIX_LATER
  2306.  
  2307.  
  2308.         
  2309.                         
  2310.  
  2311.  
  2312.  
  2313.  
  2314.  
  2315.  
  2316. // DGopherEditWindow ------------------------
  2317.  
  2318.  
  2319. enum DGopherEditCmds {
  2320.     citem=1,cProto,cTITL,cHOST,cPATH,cKIND,ctran,cisGp,cPORT,ctype,csire, cURL
  2321.     };
  2322.  
  2323.  
  2324. DGopherEditWindow::DGopherEditWindow(DGopher* itsGopher, Boolean editAll) :
  2325.     DWindow( 0, NULL, DWindow::fixed, -10, -10, -50, -20, NULL, kDontFreeOnClose),
  2326.     fEditAll(editAll),
  2327.     fView(NULL),
  2328.     fGopher(itsGopher)
  2329. {    
  2330.     if (fGopher && fGopher->fType != kTypeError) {
  2331.         fGopher->newOwner();
  2332.         if (fEditAll) this->SetTitle("Edit network link");
  2333.         else this->SetTitle("Open network service");
  2334.         fName= fGopher->GetName();
  2335.         fHost= fGopher->GetHost();
  2336.         fPort= fGopher->GetPort();
  2337.         fPath= fGopher->GetPath();
  2338.         fURL= fGopher->GetURL();
  2339.         }
  2340.     else {
  2341.         if (fEditAll) this->SetTitle("New network link");
  2342.         else this->SetTitle("New network service");
  2343.         fName= "Title of link";
  2344.         fHost= "Host.Name.Goes.Here";
  2345.         fPort= "70";
  2346.         fPath= "";    
  2347.         fURL= "gopher://host.name.here/00path/to/doc/here";
  2348.         }
  2349. }
  2350.  
  2351. DGopherEditWindow::~DGopherEditWindow()
  2352. {
  2353.     //if (fView) delete fView; //NNNNNOOOOOOOOO --- DView::deletesubviews does this now
  2354.     if (fGopher) fGopher->suicide();
  2355. }
  2356.  
  2357. void DGopherEditWindow::OkayAction()
  2358. {
  2359.     fView->Answers();
  2360. }
  2361.  
  2362.  
  2363. void DGopherEditWindow::Open()
  2364. {
  2365.     DView            * super;
  2366.     DEditText    * et;
  2367.     DPrompt        * pr;
  2368.     DCheckBox    * ck;
  2369.     DPopupList* pop;
  2370.     Nlm_FonT    promptFont = Nlm_programFont; //Nlm_systemFont
  2371.     Nlm_FonT    editFont = Nlm_programFont; 
  2372.     short         listitem;
  2373.     char        * name;
  2374.  
  2375.  
  2376.     fView= new DGopherEditView(citem, this, fGopher, fURL, 50, 20, true, NULL);
  2377.     super= fView;
  2378.     
  2379.     pr= new DPrompt(0, super, "Protocol:", 0, 0, promptFont);             
  2380.     super->NextSubviewToRight();
  2381.     pop= new DPopupList(cProto, super, true);
  2382.     listitem= 0;
  2383.     do {
  2384.       name= (char*)DGopher::GetProtoName( listitem);
  2385.     if (name) {
  2386.             pop->AddItem( name);
  2387.             if (!DGopher::GetProtoSupport(listitem)) 
  2388.                 pop->SetItemStatus( listitem+1, false);
  2389.             listitem++;
  2390.             }
  2391.     } while (name);
  2392.     super->NextSubviewBelowLeft();
  2393.  
  2394.     pr= new DPrompt(0, super, "Name:", 0, 0, promptFont);             
  2395.     super->NextSubviewToRight();
  2396.     et= new DEditText(cTITL, super, (char*)fName, 30, editFont);
  2397.     this->SetEditText(et);
  2398.     super->NextSubviewBelowLeft();
  2399.     
  2400.     pr= new DPrompt(0, super, "Host:", 0, 0, promptFont);             
  2401.     super->NextSubviewToRight();
  2402.     et= new DEditText(cHOST, super, (char*)fHost, 30, editFont);
  2403.     this->SetEditText(et);
  2404.     super->NextSubviewBelowLeft();
  2405.  
  2406.     if (fEditAll) {
  2407.         pr= new DPrompt(0, super, "Path:", 0, 0, promptFont);             
  2408.         super->NextSubviewToRight();
  2409.         et= new DEditText(cPATH, super, (char*)fPath, 30, editFont);
  2410.         this->SetEditText(et);
  2411.         super->NextSubviewBelowLeft();
  2412.         
  2413.         pr= new DPrompt(0, super, "Type:", 0, 0, promptFont);             
  2414.         super->NextSubviewToRight();
  2415.         pop= new DPopupList(cKIND, super, true);
  2416.  
  2417. #if 1        
  2418.         listitem= 0;
  2419.         do {
  2420.           name= (char*)DGopher::GetTypeName( listitem);
  2421.       if (name) {
  2422.                 pop->AddItem( name);
  2423.                 if (!DGopher::GetTypeSupport(listitem)) 
  2424.                     pop->SetItemStatus( listitem+1, false);
  2425.                 listitem++;
  2426.                 }
  2427.         } while (name);
  2428.  
  2429. #else
  2430.                     // AARRRRGGGHHHHH !!!!!!!!
  2431.                     // there should be DGopher STATIC method(s) 
  2432.                     // to return gopher class list/name/item#
  2433.                     // so we can add/change classes w/o having to edit unrelated files like this one !
  2434.         pop->AddItem("Document");     
  2435.         pop->AddItem("Folder");     
  2436.         pop->AddItem("Query");     
  2437.         pop->AddItem("Binary file");     
  2438.         pop->AddItem("Image");     
  2439.         pop->AddItem("Sound");     
  2440.         pop->AddItem("Movie");     
  2441.         pop->AddItem("Note");     
  2442.         pop->AddItem("Html");     
  2443.         pop->AddItem("Mailto");     
  2444.         pop->AddItem("Telnet link");     
  2445.         pop->AddItem("TN3270 link");     
  2446.         ///
  2447.         pop->AddItem("CSO Phonebook");     
  2448.         pop->AddItem("Whois Phonebook");     
  2449.         pop->AddItem("Binhex file");     
  2450.         pop->AddItem("Uuencoded file");     
  2451.  
  2452.         pop->AddItem("Unknown type");     
  2453. #endif
  2454.         super->NextSubviewToRight();
  2455.  
  2456.         ck= new DCheckBox(ctran, super, "Use binary transfer");
  2457.         ck->SetStatus(false);
  2458.         super->NextSubviewBelowLeft();
  2459.         }
  2460.     
  2461.     pr= new DPrompt(0, super, "Port:", 0, 0, promptFont);             
  2462.     super->NextSubviewToRight();
  2463.     et= new DEditText(cPORT, super, (char*)fPort, 4, editFont);
  2464.     this->SetEditText(et);
  2465.     super->NextSubviewToRight();
  2466.  
  2467.         // ?? make new method  DView::NextSubviewOffset( x, y);
  2468.         // ?? make new method  DView::NextSubviewMoveto( x, y);
  2469.     Nlm_PoinT nps;
  2470.     super->GetNextPosition( &nps);
  2471.     nps.x += 15; 
  2472.     super->SetNextPosition( nps);
  2473.  
  2474.     ck= new DCheckBox(cisGp, super, "Is Gopher+ link");
  2475.     ck->SetStatus(false);
  2476.     super->NextSubviewBelowLeft();
  2477.  
  2478.     pr= new DPrompt(0, super, " -- or enter universal resource locator -- ",
  2479.              0, 0, promptFont);             
  2480.     super->NextSubviewBelowLeft();
  2481.  
  2482.     pr= new DPrompt(0, super, "URL:", 0, 0, promptFont);             
  2483.     super->NextSubviewToRight();
  2484.     et= new DEditText(cURL, super, (char*)fURL, 60, editFont);
  2485.     this->SetEditText(et);
  2486.     super->NextSubviewBelowLeft();
  2487.  
  2488.     this->AddOkayCancelButtons();
  2489.     fView->InstallControls();
  2490.     
  2491.     DWindow::Open();
  2492. }
  2493.  
  2494.  
  2495.  
  2496. // DGopherEditView ------------------------
  2497.  
  2498.  
  2499. DGopherEditView::DGopherEditView(long id, DView* itsSuperior, DGopher* itsGopher,
  2500.             const char* oldURL, short width, short height, Boolean hidden, char* title) :
  2501.     DCluster( id, itsSuperior, width, height, hidden, title),
  2502.     fOldURL(NULL), fGopher(itsGopher)
  2503. {
  2504.     fOldURL= StrDup( (char*) oldURL);
  2505. }
  2506.  
  2507. DGopherEditView::~DGopherEditView()
  2508. {
  2509.     MemFree( fOldURL);
  2510. }
  2511.  
  2512. void    DGopherEditView::InstallControls()
  2513. {
  2514.     DControl* nextline= this;
  2515.     DGopher*  go= fGopher;
  2516.  
  2517.     if (go) {
  2518.         DEditText * et;
  2519.         DEditText * nt; //DNumberText
  2520.         DCheckBox * cb;
  2521.         DPopupList * pop;
  2522.         DButton   * bt;
  2523.         char         aLine[256];
  2524.         short            item;
  2525.         
  2526. #define go2EditText(ID, GOVAL)        \
  2527. { if (NULL != (et= (DEditText*)nextline->FindSubview(ID))) \
  2528.     et->SetTitle( (char*)GOVAL); }
  2529.  
  2530. #define go2NumbText(ID, GOVAL)        \
  2531. { if (NULL != (nt= (DEditText*)nextline->FindSubview(ID))) \
  2532.     sprintf(aLine, "%d", GOVAL); nt->SetTitle( aLine); }
  2533.  
  2534. #define go2CheckBox(ID, GOVAL)        \
  2535. { if (NULL != (cb= (DCheckBox*)nextline->FindSubview(ID))) \
  2536.     cb->SetStatus( GOVAL ); }
  2537.  
  2538. #define go2Popup(ID, GOVAL)        \
  2539. { if (NULL != (pop= (DPopupList*)nextline->FindSubview(ID))) \
  2540.     pop->SetValue( GOVAL ); }
  2541.  
  2542.         item= 1 + DGopher::GetProtoItem( go->fProtocol);
  2543.         go2Popup( cProto, item);
  2544.  
  2545.         go2EditText( cTITL, go->GetName());
  2546.         go2EditText( cHOST, go->GetHost());
  2547.         go2EditText( cPATH, go->GetPath());
  2548.         go2EditText( cPORT, go->GetPort());
  2549.         go2EditText( cURL, go->GetURL());
  2550.  
  2551. #if 1
  2552.         item= 1 + DGopher::GetTypeItem( go->fType);
  2553. #else
  2554.         switch (go->fType) {
  2555.         
  2556.                     // AARRRRGGGHHHHH !!!!!!!!
  2557.                     // there should be DGopher STATIC method(s) 
  2558.                     // to return gopher class list/name/item#
  2559.                     // so we can add/change classes w/o having to edit unrelated files like this one !
  2560.  
  2561.             case kTypeFile           : item= 1; break;
  2562.             case kTypeFolder        : item= 2; break;
  2563.             case kTypeQuery        : item= 3; break;
  2564.             case kTypeBinary       : item= 4; break;
  2565.             case kTypeImage            : item= 5; break;
  2566.             case kTypeGif                : item= 5; break; // kTypeImage
  2567.             case kTypeSound       : item= 6; break;
  2568.             case kTypeMovie            : item= 7; break;
  2569.             case kTypeNote            : item= 8; break;
  2570.  
  2571.             case kTypeHtml            : item= 9; break;
  2572.             case kMailType            : item= 10; break;
  2573.             case kTypeTelnet       : item= 11; break;
  2574.             case kTypeTn3270        : item= 12; break; // ?? or kTypeTelnet
  2575.             case kTypeMime            : item= 1; break;
  2576.  
  2577.             case kTypeCSO              : item= 13; break;
  2578.             case kTypeWhois          : item= 14; break;
  2579.             case kTypeBinhex      : item= 15; break;
  2580.             case kTypeUuencode  : item= 16; break;
  2581.  
  2582.             default                            : item= 17; break;
  2583.             }
  2584. #endif
  2585.         go2Popup( cKIND, item);
  2586.             
  2587.         go2CheckBox( ctran, go->fTransferType == kTransferBinary);
  2588.         go2CheckBox( cisGp, go->fIsPlus == kGopherPlusYes);
  2589.  
  2590.         go2EditText( ctype, Idtype2Str( go->fMacType));
  2591.         go2EditText( csire, Idtype2Str( go->fMacSire));
  2592.         //go2Button( cappn, GetComment);
  2593.  
  2594. #undef go2Popup            
  2595. #undef go2CheckBox
  2596. #undef go2NumbText
  2597. #undef go2EditText            
  2598.         }
  2599. }
  2600.  
  2601.  
  2602.     
  2603. void    DGopherEditView::Answers()
  2604. {
  2605.     DControl* cline= this;
  2606.     DGopher*  go= fGopher;
  2607.     
  2608.     if (cline && go) {
  2609.         DEditText * et;
  2610.         DEditText * nt;
  2611.         DCheckBox * cb;
  2612.         DPopupList * pop;
  2613.         DButton   * bt;
  2614.         char             aLine[256];
  2615.         short            item;
  2616.             
  2617. #define EditText2Go(ID, MAPFUNC)        \
  2618.     if (NULL != (et= (DEditText*)cline->FindSubview(ID))) \
  2619.         { et->GetTitle( aLine, 256); go->MAPFUNC(aLine); }
  2620.                 
  2621. #define EditText2Golong(ID, VAR)        \
  2622.     if (NULL != (et= (DEditText*)cline->FindSubview(ID))) \
  2623.         { et->GetTitle( aLine, 256); VAR = Str2Idtype(aLine); }
  2624.  
  2625. #define CheckBox2Go(ID, MAPFUNC)        \
  2626.     if (NULL != (cb= (DCheckBox*)cline->FindSubview(ID))) \
  2627.       { go->MAPFUNC(cb->GetStatus()); }
  2628.  
  2629.         if (NULL != (pop= (DPopupList*)cline->FindSubview(cProto)))
  2630.             go->fProtocol= DGopher::GetProtoVal(pop->GetValue()-1);
  2631.  
  2632.         EditText2Go( cTITL, StoreName);
  2633.         EditText2Go( cPATH, StorePath);
  2634.         EditText2Go( cHOST, StoreHost);
  2635.         EditText2Go( cPORT, StorePort);
  2636.         CheckBox2Go( cisGp, StorePlus);
  2637.  
  2638.         EditText2Golong( ctype, go->fMacType);
  2639.         EditText2Golong( csire, go->fMacSire);
  2640.         if (NULL != (cb= (DCheckBox*)cline->FindSubview(ctran)))  {
  2641.             if (cb->GetStatus()) go->fTransferType= kTransferBinary;
  2642.             else go->fTransferType= kTransferText;
  2643.             }
  2644.  
  2645.         if (NULL != (pop= (DPopupList*)cline->FindSubview(cKIND)))
  2646. #if 1
  2647.             go->fType= DGopher::GetTypeVal(pop->GetValue()-1);
  2648. #else
  2649.             switch (pop->GetValue()) {
  2650.                 case  1: go->fType= kTypeFile; break;
  2651.                 case  2: go->fType= kTypeFolder; break;
  2652.                 case  3: go->fType= kTypeQuery; break;
  2653.                 case  4: go->fType= kTypeBinary; break;
  2654.                 case  5: go->fType= kTypeImage; break;
  2655.                 case  6: go->fType= kTypeSound; break;
  2656.                 case  7: go->fType= kTypeMovie; break;
  2657.                 case  8: go->fType= kTypeNote; break;
  2658.                 case  9: go->fType= kTypeHtml; break;
  2659.                 case 10: go->fType= kMailType; break;
  2660.                 case 11: go->fType= kTypeTelnet; break;
  2661.                 case 12: go->fType= kTypeTn3270; break;
  2662.  
  2663.                 case 13: go->fType= kTypeCSO; break;
  2664.                 case 14: go->fType= kTypeWhois; break;
  2665.                 case 15: go->fType= kTypeBinhex; break;
  2666.                 case 16: go->fType= kTypeUuencode; break;
  2667.  
  2668.                 default:
  2669.                 case 17: go->fType= kTypeError; break; 
  2670.                 }
  2671. #endif
  2672.  
  2673.                 // check URL last ?? so it can override other opts ??
  2674.         //EditText2Go( cURL, StoreURL);  
  2675.         if (NULL != (et= (DEditText*)cline->FindSubview(cURL))) { 
  2676.             char     aURL[512];
  2677.             et->GetTitle( aURL, 512); 
  2678.             long urllen= StrLen( aURL);
  2679.             if ( urllen < 5 || StrCmp( aURL, fOldURL) == 0 ) 
  2680.                 go->StoreURL( NULL);
  2681.             else {
  2682.                 // go->StoreURL( aURL); // redundant
  2683.                 DGopher* newgo= DGopherList::GopherFromURL( aURL, urllen, NULL, false);
  2684.                 go->CopyGopher(newgo);
  2685.                 }
  2686.             }
  2687.                 
  2688.  
  2689. #undef EditText2Go                            
  2690. #undef CheckBox2Go                            
  2691. #undef EditText2Golong                            
  2692.          }
  2693. }
  2694.  
  2695.  
  2696.  
  2697.  
  2698.  
  2699.  
  2700.  
  2701.  
  2702.  
  2703.  
  2704.  
  2705.  
  2706. // DGoMapEditDlog ------------------------
  2707.  
  2708.  
  2709. enum DGoMapEditCmds {
  2710.     cHandID = 512, cGoplusKind,cHandType,cHandName,cHandSig,cTrans,cPref,
  2711.     cLocalType,cServerType,cListOld,
  2712.     cServerSuffixes
  2713.     };
  2714.  
  2715.  
  2716. DGoMapEditDlog::DGoMapEditDlog(DGopherMap* itsMapper, short itsForm, char* itsKind) :
  2717.     DWindow( 0, NULL, DWindow::fixed, -10, -10, -50, -20, NULL, kDontFreeOnClose),
  2718.     fView(NULL), fOtherKinds(NULL),
  2719.     fForm(itsForm),
  2720.     fMapper(itsMapper), fNewMapper(NULL)
  2721. {    
  2722.     if (fMapper) {
  2723.         //fMapper->newOwner(); //??
  2724.         //fForm= itsForm;
  2725.         switch (fForm) {
  2726.             case kFormLocal: this->SetTitle("Edit document type handler"); break;
  2727.             case kFormServerSuffixes: this->SetTitle("Edit server suffix mapping"); break;
  2728.             case kFormServerLocalMap: this->SetTitle("Edit server-local type mapping"); break;
  2729.             }
  2730.         }
  2731.     else {
  2732.         fForm= kFormNew; //kFormLocal;
  2733.         fNewMapper= new DGopherMap();  
  2734.         fMapper= fNewMapper;
  2735.         //fMapper->newOwner(); //??
  2736.         fMapper->fStatus= kAdded;
  2737.         this->SetTitle("New document type handler");
  2738.             // this one will trash current text handler ??
  2739.         //fMapper->SetHandlerType("Internal");
  2740.         //fMapper->SetID( gInternalHandlerIDs[kTextHandler]); // ??  if Internal, must be valid !?
  2741.         fMapper->SetHandlerType("External");
  2742.         fMapper->SetID( "abcd"); 
  2743.             // ??  if Internal, must be valid !?
  2744.         fMapper->SetKind( itsKind);
  2745.         fMapper->SetHandlerName("Application name");
  2746.         fMapper->SetPreference("1");
  2747.         fMapper->SetServerType("0");
  2748.         fMapper->SetLocalType("0");
  2749.         fMapper->SetSuffix(".txt");
  2750.         fMapper->SetMacTypeNSire("TEXT/ttxt");
  2751.         fMapper->SetServerSuffixes(".txt");
  2752.         fMapper->SetTransferBinary();
  2753.         }
  2754. }
  2755.  
  2756. DGoMapEditDlog::~DGoMapEditDlog()
  2757. {
  2758.     //if (fView) delete fView; //!!!!! NOOOOOOO we delete all subviews now !!!!!
  2759.     if (fNewMapper) fNewMapper->suicide();
  2760.     MemFree( fOtherKinds);
  2761. }
  2762.  
  2763. void DGoMapEditDlog::OkayAction()
  2764. {
  2765.     fView->Answers();
  2766.     if (fForm == kFormNew && fOtherKinds)  
  2767.         fMapper->SetKind( fOtherKinds);
  2768.     if (fMapper->fStatus == kNochange) 
  2769.         fMapper->fStatus= kChanged;
  2770. }
  2771.  
  2772. Boolean DGoMapEditDlog::IsMyAction( DTaskMaster* action) 
  2773. {    
  2774.     switch (action->Id()) {
  2775.  
  2776.         case cListOld: {
  2777.             DGopherMap * mp= NULL;
  2778.             DPopupList * pop = (DPopupList*) action;
  2779.             short val= pop->GetValue()-1;
  2780.             if (val) mp= gGopherMap->GopherMapAt( val-1); // -1 ??????
  2781.             else mp= fNewMapper;
  2782.             if (mp) {
  2783.                 // !!!! MUST Fiddle w/ mapper::fKind so that caller's original itsKind isn't trashed
  2784.                 char    buf[512];
  2785.                 mp->fKind->GetAllNames( buf, sizeof(buf));
  2786.                 if (fOtherKinds) MemFree(fOtherKinds);
  2787.                 fOtherKinds= StrDup( buf);
  2788.                 
  2789.                 //fMapper->suicide(); //??
  2790.                 fMapper= mp;
  2791.                 //fMapper->newOwner(); //??
  2792.                 fMapper->fStatus= kNochange;
  2793.                 fView->fMapper= fMapper;
  2794.                 fView->fInstallKind= false;
  2795.                 fView->InstallControls();
  2796.                 }
  2797.             return true;
  2798.             }
  2799.  
  2800.         default:
  2801.             return DWindow::IsMyAction(action);
  2802.         }
  2803. }
  2804.  
  2805. void DGoMapEditDlog::Open()
  2806. {
  2807.     DView* super;
  2808.     DEditText* et;
  2809.     DPrompt* pr;
  2810.     DCheckBox* ck;
  2811.     DPopupList* pop;
  2812.     Nlm_FonT    promptFont = Nlm_programFont; //Nlm_systemFont;
  2813.     Nlm_FonT    editFont = Nlm_programFont;
  2814.     Boolean        doListOld;
  2815.     
  2816.     doListOld= (fForm == kFormNew);
  2817.     //if (doListOld) fForm= kFormLocal;
  2818.     fView= new DGoMapEditView(0, this, fForm, fMapper, 50, 20, true, NULL);
  2819.     super= fView;
  2820.  
  2821.     pr= new DPrompt(0, super, "Document Kind:", 0, 0, promptFont);             
  2822.     super->NextSubviewToRight();
  2823.     et= new DEditText(cGoplusKind, super, "", 30, editFont);
  2824.     this->SetEditText(et);
  2825.     super->NextSubviewBelowLeft();
  2826.     
  2827.     if (doListOld) {
  2828.         pr= new DPrompt(0, super, "Handle as this kind:", 0, 0, promptFont);             
  2829.         super->NextSubviewToRight();
  2830.         pop= new DPopupList(cListOld, super, true);
  2831.         long i, n= gGopherMap->GetSize();
  2832.         pop->AddItem("New local kind");    
  2833.         for (i=0;i<n;i++) { 
  2834.             DGopherMap* mp= gGopherMap->GopherMapAt(i); 
  2835.             pop->AddItem((char*)mp->GetKind());    
  2836.             } 
  2837.         super->NextSubviewBelowLeft(); 
  2838.         
  2839.         }
  2840.         
  2841.     if (fForm == kFormLocal || fForm == kFormNew) {
  2842.         DCluster* clu= new DCluster( 0, super, 0, 0, false,"Edit local handler values");
  2843.         //clu->SetResize( DView::moveinsuper, DView::moveinsuper);
  2844.         super= clu;  
  2845.         pr= new DPrompt(0, super, "Local ID:", 0, 0, promptFont);             
  2846.         super->NextSubviewToRight();
  2847.         et= new DEditText(cHandID, super, "", 5, editFont);
  2848.         this->SetEditText(et);
  2849.         super->NextSubviewBelowLeft(); //NextSubviewToRight();
  2850.  
  2851.         pr= new DPrompt(0, super, "Preference for this kind:", 0, 0, promptFont);             
  2852.         super->NextSubviewToRight();
  2853.         et= new DEditText(cPref, super, "", 8, editFont);
  2854.         super->NextSubviewBelowLeft();
  2855.         
  2856.         ck= new DCheckBox(cTrans, super, "Use binary transfer");
  2857.         ck->SetStatus(true);
  2858.         super->NextSubviewBelowLeft();
  2859.  
  2860.         pr= new DPrompt(0, super, "Handler Type:", 0, 0, promptFont);             
  2861.         super->NextSubviewToRight();
  2862.         pop= new DPopupList(cHandType, super, true);
  2863.         pop->AddItem("External");     
  2864.         pop->AddItem("Internal");     
  2865.         pop->AddItem("None");     
  2866.         super->NextSubviewBelowLeft(); 
  2867.     
  2868.         
  2869.         pr= new DPrompt(0, super, " For External handlers ----------", 0, 0, promptFont);             
  2870.         super->NextSubviewBelowLeft();
  2871.          
  2872.         // Button for user file/appl get dialog...
  2873.         
  2874.         pr= new DPrompt(0, super, "Handler App:", 0, 0, promptFont);             
  2875.         super->NextSubviewToRight();
  2876.         et= new DEditText(cHandName, super, "", 30, editFont);
  2877.         this->SetEditText(et);
  2878.         super->NextSubviewBelowLeft();
  2879.     
  2880.     #ifdef WIN_MAC
  2881.         pr= new DPrompt(0, super, "File signature:", 0, 0, promptFont);             
  2882.     #else
  2883.         pr= new DPrompt(0, super, "File suffix:", 0, 0, promptFont);             
  2884.     #endif
  2885.         super->NextSubviewToRight();
  2886.         et= new DEditText(cHandSig, super, "", 9, editFont);
  2887.         this->SetEditText(et);
  2888.         super->NextSubviewBelowLeft();
  2889.         }
  2890.     
  2891.     else if (fForm == kFormServerSuffixes) {
  2892.         //pr= new DPrompt(0, super, "--- Mapping from server to local types ---", 0, 0, promptFont);             
  2893.         //super->NextSubviewBelowLeft();
  2894.     
  2895.         pr= new DPrompt(0, super, "Server suffixes to map:", 0, 0, promptFont);             
  2896.         super->NextSubviewToRight();
  2897.         et= new DEditText(cServerSuffixes, super, "", 20, editFont);
  2898.         this->SetEditText(et);
  2899.         }
  2900.         
  2901.     else if (fForm == kFormServerLocalMap) {
  2902.         //pr= new DPrompt(0, super, "--- Mapping from server to local types ---", 0, 0, promptFont);             
  2903.         //super->NextSubviewBelowLeft();
  2904.  
  2905.         pr= new DPrompt(0, super, "Server Gopher0 type to map:", 0, 0, promptFont);             
  2906.         super->NextSubviewToRight();
  2907.         et= new DEditText(cServerType, super, "", 2, editFont);
  2908.         super->NextSubviewBelowLeft();
  2909.         
  2910.         pr= new DPrompt(0, super, "to Local Gopher0 Type:", 0, 0, promptFont);             
  2911.         super->NextSubviewToRight();
  2912.         et= new DEditText(cLocalType, super, "", 2, editFont);
  2913.         this->SetEditText(et);
  2914.         super->NextSubviewBelowLeft();
  2915.         }
  2916.     
  2917.     this->AddOkayCancelButtons();
  2918.     fView->InstallControls();
  2919.     
  2920.     DWindow::Open();
  2921. }
  2922.  
  2923.  
  2924.  
  2925. // DGoMapEditView ------------------------
  2926.  
  2927. DGoMapEditView::DGoMapEditView(long id, DView* itsSuperior, short itsForm, DGopherMap* itsMapper,
  2928.             short width, short height, Boolean hidden, char* title) :
  2929.     DCluster( id, itsSuperior, width, height, hidden, title),
  2930.     fForm(itsForm), fInstallKind(true),
  2931.     fMapper(itsMapper)
  2932. {
  2933. }
  2934.  
  2935.  
  2936. DGoMapEditView::~DGoMapEditView()
  2937. {
  2938. }
  2939.  
  2940.  
  2941. void    DGoMapEditView::InstallControls()
  2942. {
  2943.     DControl* nextline= this;
  2944.     DGopherMap*  go= fMapper;
  2945.  
  2946.     if (go) {
  2947.         DEditText * et;
  2948.         DEditText * nt; //DNumberText
  2949.         DCheckBox * cb;
  2950.         DPopupList * pop;
  2951.         DButton   * bt;
  2952.         char         aLine[256];
  2953.         short            item;
  2954.         
  2955. #define go2EditText(ID, GOVAL)        \
  2956. { if (NULL != (et= (DEditText*)nextline->FindSubview(ID))) \
  2957.     et->SetTitle( (char*)GOVAL); }
  2958.  
  2959. #define go2NumbText(ID, GOVAL)        \
  2960. { if (NULL != (nt= (DEditText*)nextline->FindSubview(ID))) \
  2961.     sprintf(aLine, "%d", GOVAL); nt->SetTitle( aLine); }
  2962.  
  2963. #define go2CheckBox(ID, GOVAL)        \
  2964. { if (NULL != (cb= (DCheckBox*)nextline->FindSubview(ID))) \
  2965.     cb->SetStatus( GOVAL ); }
  2966.  
  2967. #define go2Popup(ID, GOVAL)        \
  2968. { if (NULL != (pop= (DPopupList*)nextline->FindSubview(ID))) \
  2969.     pop->SetValue( GOVAL ); }
  2970.  
  2971.     if (fInstallKind) go2EditText( cGoplusKind, go->GetKind());
  2972.     if (fForm != DGoMapEditDlog::kFormLocal
  2973.           && NULL != (et= (DEditText*)nextline->FindSubview(cGoplusKind))) 
  2974.               et->Disable();
  2975.               
  2976.     if (fForm == DGoMapEditDlog::kFormLocal ||
  2977.           fForm == DGoMapEditDlog::kFormNew) {
  2978.         go2EditText( cHandID, go->GetID());  
  2979.         go2EditText( cHandName, go->GetHandlerName());
  2980.         go2EditText( cPref, go->GetPreference());
  2981.         go2EditText( cHandSig, go->GetSuffix());
  2982.         
  2983.         switch (*(go->GetHandlerType())) {
  2984.             case 'L'    :
  2985.             case 'l'    :
  2986.             case 'e'    :
  2987.             case 'E'    : item= 1; break;
  2988.             case 'i'    :
  2989.             case 'I'    : item= 2; break;
  2990.             case 'n'    :
  2991.             case 'N'    : item= 3; break;
  2992.             default        : item= 1; break;
  2993.             }
  2994.         go2Popup( cHandType, item);
  2995.         go2CheckBox( cTrans, go->GetTransferBinary());
  2996.         }
  2997.     
  2998.     else if (fForm == DGoMapEditDlog::kFormServerSuffixes) {
  2999.         go2EditText( cServerSuffixes, go->GetServerSuffixes());
  3000.         }
  3001.     else if (fForm == DGoMapEditDlog::kFormServerLocalMap) {
  3002.         go2EditText( cServerType, go->GetServerType());
  3003.         go2EditText( cLocalType, go->GetLocalType());
  3004.         }
  3005.  
  3006. #undef go2Popup            
  3007. #undef go2CheckBox
  3008. #undef go2NumbText
  3009. #undef go2EditText            
  3010.         }
  3011. }
  3012.  
  3013.  
  3014.     
  3015. void    DGoMapEditView::Answers()
  3016. {
  3017.     DControl* cline= this;
  3018.     DGopherMap*  go= fMapper;
  3019.     
  3020.     if (cline && go) {
  3021.         DEditText * et;
  3022.         DEditText * nt;
  3023.         DCheckBox * cb;
  3024.         DPopupList * pop;
  3025.         DButton   * bt;
  3026.         char             aLine[256];
  3027.         short            item;
  3028.             
  3029. #define EditText2Go(ID, MAPFUNC)        \
  3030.     if (NULL != (et= (DEditText*)cline->FindSubview(ID))) \
  3031.         { et->GetTitle( aLine, 256); go->MAPFUNC(aLine); }
  3032.                 
  3033. #define EditText2Golong(ID, VAR)        \
  3034.     if (NULL != (et= (DEditText*)cline->FindSubview(ID))) \
  3035.         { et->GetTitle( aLine, 256); VAR = Str2Idtype(aLine); }
  3036.  
  3037. #define CheckBox2Go(ID, MAPFUNC)        \
  3038.     if (NULL != (cb= (DCheckBox*)cline->FindSubview(ID))) \
  3039.       { go->MAPFUNC(cb->GetStatus()); }
  3040.  
  3041.     if (fForm == DGoMapEditDlog::kFormLocal 
  3042.         || fForm == DGoMapEditDlog::kFormNew) {
  3043.         //if (go->fKind) { MemFree(go->fKind); go->fKind= NULL; } // SetKind bug, sets alt kind if fKind !
  3044.         EditText2Go( cGoplusKind, SetKind);
  3045.         EditText2Go( cHandID, SetID);
  3046.         EditText2Go( cHandName, SetHandlerName);
  3047.         EditText2Go( cPref, SetPreference);
  3048.         EditText2Go( cHandSig, SetSuffix);
  3049.         CheckBox2Go( cTrans, SetTransferBinary);
  3050.  
  3051.         if (NULL != (pop= (DPopupList*)cline->FindSubview(cHandType)))
  3052.             switch (pop->GetValue()) {
  3053.                 case  1: go->SetHandlerType("External"); break;
  3054.                 case  2: go->SetHandlerType("Internal"); break;
  3055.                 default:
  3056.                 case  3: go->SetHandlerType("None"); break;
  3057.                 }
  3058.         }            
  3059.     else if (fForm == DGoMapEditDlog::kFormServerSuffixes) {
  3060.         EditText2Go( cServerSuffixes, SetServerSuffixes);
  3061.         }
  3062.     else if (fForm == DGoMapEditDlog::kFormServerLocalMap) {
  3063.         EditText2Go( cServerType, SetServerType);
  3064.         EditText2Go( cLocalType, SetLocalType);
  3065.         }
  3066.         
  3067. #undef EditText2Go                            
  3068. #undef CheckBox2Go                            
  3069. #undef EditText2Golong                            
  3070.          }
  3071. }
  3072.  
  3073.  
  3074.